Auswählen einer Zelle sofort mit X kennzeichnen.
22.08.2008 15:12:33
Richard
ich habe folgenden Code geschrieben: Wenn ich Zelle A1 auswähle, dann soll er dort ein X reinsetzten, steht da schon ein X dann soll er es wieder rausnehmen.
Jetzt kommt 'ne ganz blöde Frage: Wie definiere ich einen ganzen Bereich indem er das machen soll? Zum Beispiel A1:B100. Schließlich will ich ja nicht dieses 200 x runterkopieren.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$A$1" Then
If ActiveCell.Value = "X" Then
ActiveCell.ClearContents
Else
ActiveCell.Value = "X"
End If
Else
Exit Sub
End If
End Sub
Mit freundlichen Grüßen
Richard