Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
580to584
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbig bei aktiver Zelle

Farbig bei aktiver Zelle
08.03.2005 10:40:34
Andre
Hallo alle zusammen,
ich möchte gern eine Zelle farbig hinterlegen in der Spalte A, wenn ich in irgend einer aktiven Zelle bin. Zum Beispiel: aktive Zelle ist J8, dann soll die Zelle A8 farbig sein, aktive Zelle G1, dann A1 farbig usw.
Ich hoffe mir kann jemand helfen.
Danke im voraus!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbig bei aktiver Zelle
08.03.2005 11:03:36
u_
Hallo,
in das Klassenmodul der Tabelle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Columns(1).Interior.ColorIndex = xlNone
Cells(Target.Row, 1).Interior.ColorIndex = 19
Application.ScreenUpdating = True
End Sub

Gruß
Wow, auf die Sekunde gleichzeitig! ;-) (oT)
08.03.2005 11:07:52
Martin
aber ich 3 Min. schneller
08.03.2005 11:24:57
u_
AW: Und ich habe mich verlesen :-( (oT)
08.03.2005 11:27:27
Martin
AW: Farbig bei aktiver Zelle
08.03.2005 11:06:36
Martin
Hallo Andre,
wenn Du sonst keine Farben in Spalte A hast, versuche mal

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns(1).Interior.ColorIndex = xlAutomatic
Cells(Target.Row, 1).Interior.ColorIndex = 3
End Sub

Der Code gehört nicht in ein normales Modul, sondern Du mußt im Projektexplorer auf die gewünschte Tabelle doppelclicken und den Code in das sich öffnende Fenster kopieren.
Gruß
Martin Beck
Anzeige
AW: Danke für die schnelle Hilfe
08.03.2005 11:37:10
Andre
Super funzt!!!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige