AW: "X" durch doppelklick einfügen bzw. verändern
19.07.2006 15:26:14
Mustafa
Hallo Helmar,
hier der 2. Versuch:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("G1:I10")) Is Nothing Then
If Intersect(Target, Range("P1:R10")) Is Nothing Then Exit Sub
End If
Select Case Target.Column
Case 7
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
End If
Case 8
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
Target.Offset(0, -1) = ""
Target.Offset(0, 1) = ""
End If
Case 9
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
Target.Offset(0, -2) = ""
Target.Offset(0, -1) = ""
End If
Case 16
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
End If
Case 17
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
Target.Offset(0, -1) = ""
Target.Offset(0, 1) = ""
End If
Case 18
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
Target.Offset(0, -2) = ""
Target.Offset(0, -1) = ""
End If
End Select
Cancel = True
End Sub
Rückmeldung wäre nett.
Viele Grüße aus Köln.