Anzeige
Archiv - Navigation
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bei Klick in Zelle> Eintrag oder nicht!

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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Klick in Zelle> Eintrag oder nicht!
24.10.2003 18:28:27
Werner
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
Danke!
24.10.2003 18:41:05
Gerhard S.
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.
Anzeige
mach einfach ein O aus der 0 oT.
24.10.2003 18:43:34
Werner
.
schon erledigt oT.
24.10.2003 18:47:18
Gerhard S.
-

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige