Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Markieren und Demarkieren von Zellen

Markieren und Demarkieren von Zellen
02.07.2003 10:40:39
André
Hallo!
Ich bitte um Hilfe!
Für eine Tabelle, möchte ich ein Makro schreiben, dass mir z.B. durch klick auf eine Schaltfläche eine Zelle rot einfärbt. Soweit kein Problem!
Die gleiche Schaltfläche, also das gleiche Makro soll aber auch erkennen, ob die Zelle schon rot eingefärbt ist und die Einfärbung wieder aufheben! Durch erneuten Klick soll die Zelle wieder rot werden usw.
Kann mir jemand mit dem Code für diese Funktion helfen?
Danke!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markieren und Demarkieren von Zellen
02.07.2003 10:47:03
ChristianG
Hi André,
meinst Du das so?

Private Sub CommandButton1_Click()
If Range("A1").Interior.ColorIndex = xlNone Then
Range("A1").Interior.ColorIndex = 3
ElseIf Range("A1").Interior.ColorIndex = 3 Then
Range("A1").Interior.ColorIndex = xlNone
End If
End Sub

Gruß
Christian

AW: Markieren und Demarkieren von Zellen
02.07.2003 10:46:41
Andi_H
hi,
zelle markieren und makro laufen lassen

Sub einfaerben()
If ActiveCell.Interior.ColorIndex = 3 Then
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 3
End If
End Sub

gruß
andi

Anzeige
AW: Markieren und Demarkieren von Zellen
02.07.2003 10:55:02
André
Vielen Dank für die schnelle Hilfe!
André

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige