Bei Klick in Zelle> Eintrag oder nicht!
24.10.2003 18:22:33
Gerhard S.
nachdem ich mich nun fast den ganzen Nachmittag schon herumgeärgert habe und auch die Recherche und das Archiv durchforstet habe, wende ich mich nun an euch.
Ich möchte, das in bestimmte Zellen, wenn man sie anklickt ein "O" erscheint. Dieses Makro aus der Recherche funktioniert ganz gut.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set SMenge = Application.Intersect(Range("A1:D4"), Range(Target.Address))
If SMenge Is Nothing Then Exit Sub
Target.Value = "O"
End Sub
Wenn man aber diese Zellen, nochmal anklickt, verschwindet das O nicht. Wie muss das dazu passende Makro lauten, so dass das O eingetragen wird, wenn die zelle leer ist. wenn die Zelle aber schon beschrieben ist, soll das O bei einem erneuten Klick wieder verschwinden.
mfg
Gerhard S.