Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Clicken in Zelle ändert Hintergrundfarbe

Clicken in Zelle ändert Hintergrundfarbe
05.11.2004 11:39:54
Coral
Hallo!
Ich möchte gerne mein Sheet so aufsetzen, dass, wenn man einmal in eine bestimmte Zelle klickt, die ganze Zeile als Hintergrundfarbe grün bekommt. Bei einem erneuten Klicken in dieselbe Zelle sollte die Hintergrundfarbe der Zeile rot werden und beim dritten Klicken wieder farblos.
Wie mache ich das am besten?
Vielen Dank für Eure Hilfe!
Coral
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Clicken in Zelle ändert Hintergrundfarbe
Reinhard
Hi Cora,
Alt+F11, Doppelklick links auf den Tabellennamen, Code eingeben.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Interior.ColorIndex
Case xlNone
Target.EntireRow.Interior.ColorIndex = 35
Case 35
Target.EntireRow.Interior.ColorIndex = 3
Case 3
Target.EntireRow.Interior.ColorIndex = xlNone
Case Else
End Select
End Sub

Gruß
Reinhard
Anzeige
AW: Clicken in Zelle ändert Hintergrundfarbe
PeterW
Hallo Coral,
da gibt es mehrere Wege. Klicke rechts auf das Tabellenregister, Code anzeigen. Es öffnet sich der VBA-Editor. In das große weiße Fenster kopiere folgenden Code:
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
Select Case Target.Interior.ColorIndex
Case xlNone
Rows(Target.Row).Interior.ColorIndex = 4
Case 4
Rows(Target.Row).Interior.ColorIndex = 3
Case 3
Rows(Target.Row).Interior.ColorIndex = xlNone
Case Else
Rows(Target.Row).Interior.ColorIndex = xlNone
End Select
Cancel = True
End Sub

Den VBA-Editor kannst du jetzt beenden. Ausgewertet wird ein Rechtsklick in Spalte A deiner Tabelle.
Gruß
Peter
Anzeige
AW: Clicken in Zelle ändert Hintergrundfarbe
08.11.2004 13:50:11
Coral
Hallo Reinhard und Peter
danke, Eure beiden Lösungen laufen prächtig!
Gruss aus der Schweiz,
Coral
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige