VBA - Code - Anpassung
Ralf
ich habe hier einen ganz tollen Code, der auch supergut funktioniert
( wenn ich bestimmte Felder anklicke, soll Excel in diese Felder eine
X setzen, dann das zweite Feld... Wenn ich das erste Feld wieder anklicke
soll das X wieder verschwinden. Soweit so gut.
Nun zu meiner Frage: Kann man den Code daher ändern, daß wenn ich
ein Feld anklicke u. somit ein X erzeuge und jetzt kommts, und durch
sofortiges Wiederanklicken des gleichen Feldes das X wieder löschen ?
( ohne ein anderes Feld anzuklicken ! )
Bin für jeden Tipp dankbar :-)
Liebe Grüße aus dem Teutoburger Wald
Ralf
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim click As String
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("B37,B43,D37,D43,D59,F59,D63,F63,D160,D162,D165,F160,F162,D177:E177,F178: _
G188,E204:E210,G204:G210,C221:D245,D258:E295,C312,E312,C318,E318,A324:A331,A345:A350,C357,E357,B364:C371,C387,E387,C394,E394,D424,F424"), Target) Is Nothing Then 'Bereich A1:Z100 anpassen
Cancel = True
click = Target.Value
Select Case click
Case ""
Target = "x"
Case "x"
Target = ""
End Select
End If
End Sub