gibt es eine Möglichkeit eine Spalte so zu formatieren, daß sie wie eine Checkbox benutzt werden kann?
Danke
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Count = 1 Then
If Target = "ü" Then
Target.ClearContents
Else
Target = "ü"
End If
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, Range("F:F"))
If rng Is Nothing Then Exit Sub
Set rng = rng(1, 1)
rng = IIf(IsEmpty(rng), "r", "")
End Sub