gibt es die Möglichkeit, wenn ich eine Zelle nur markiere das in dieser Zelle dann z.B. bereits ein "x" erscheint? So als eine Art Formular bei dem man verschiedene Auswahlmöglichkeiten zum ankreuzen hat.
Wenn ja, wie?
Danke und Gruss
Mario
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 Then
If ActiveCell.Value = "" Then
ActiveCell.Value = "x"
Else
ActiveCell.Value = ""
End If
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Bereich = Range("E1:G6000", "J1:K6000")
If Not Intersect(Target, Bereich) Is Nothing Then
With Target
If .Value = "" Then
.Value = "x"
Else
.Value = ""
End If
Cancel = True
End With
End If
End Sub