Checkbox und Zellenverknüpfungen
Roger
Ich habe folgendes Makro gefunden. Funktioniert fast wie ich es möchte:
Statt der Ausgabe Wahr / Falsch möchte ich bei Falsch eine "0" und bei Wahr eine "1". Ich kriegs leider nicht hin. Kann mir jemand bitte helfen.
Danke Gruss Roger
Sub CheckBoxCheck()
Dim ChkBox As OLEObject
For Each ChkBox In Worksheets("Tabelle1").OLEObjects
If Left(ChkBox.Name, 8) = "CheckBox" Then
ChkBox.LinkedCell = Cells(ChkBox.TopLeftCell.Row + 1, ChkBox.TopLeftCell.Column). _
Address
ChkBox.Object.Value = False
End If
Next
End Sub
Anzeige