Bei Klick in Zelle> Eintrag oder nicht!

• Bei Klick in Zelle> Eintrag oder nicht! von Gerhard S. vom 24.10.2003 18:22:33
  • AW: Bei Klick in Zelle> Eintrag oder nicht! - von Werner am 24.10.2003 18:28:27
    • Danke! - von Gerhard S. am 24.10.2003 18:41:05
      • mach einfach ein O aus der 0 oT. - von Werner am 24.10.2003 18:43:34
        • schon erledigt oT. - von Gerhard S. am 24.10.2003 18:47:18

Betrifft: Bei Klick in Zelle> Eintrag oder nicht!
von: Gerhard S.
Geschrieben am: 24.10.2003 18:22:33
Hallo,
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.

Betrifft: AW: Bei Klick in Zelle> Eintrag oder nicht!
von: Werner
Geschrieben am: 24.10.2003 18:28:27
Hallo Gerhard.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaBereich As Range
Set RaBereich = Range("A1:D4")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
' Abbruch, wenn Aktion nicht im Zielbereich
Application.EnableEvents = False
If Target.Value = "0" Then
Target.Value = ""
Else
Target.Value = "0"
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Gruss Werner

Betrifft: Danke!
von: Gerhard S.
Geschrieben am: 24.10.2003 18:41:05
Hallo Werner,

vielen Dank für die schnelle Antwort (nicht einmal 6 min!!)
Das passt hervorragend, ich meinte zwar den Buchstaben "O" und nicht die Zahl "0", passt aber trotzdem. Sieht ja fast gleich aus.

mfg

Gerhard S.

Betrifft: mach einfach ein O aus der 0 oT.
von: Werner
Geschrieben am: 24.10.2003 18:43:34
.

Betrifft: schon erledigt oT.
von: Gerhard S.
Geschrieben am: 24.10.2003 18:47:18
-

Excel-Beispiele zum Thema " Bei Klick in Zelle> Eintrag oder nicht!"
Doppelte Einträge finden und löschen	Submenüeinträge
Seitenanzahl eintragen	Letztes Speicherdatum eintragen
Fußzeilen beim Öffnen eintragen	Wert in erste leere Zelle eintragen
Häkchen eintragen	KGRÖSSTE über VBA eintragen
Wochentage Mo - Fr in Tabelle eintragen	Arbeitsmappe unter dem Text eines Zelleintrags speichern