Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 13:34:11
Prozentuale Auswertung
10.05.2024 13:04:04
Stundenberechnung ohne 22:00 - 06:00 & Sonntag
10.05.2024 12:29:14
Alle ActiveX-Optionbuttons aus einem Groupname auf "Fal
10.05.2024 12:14:16
Darunterzellen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatisch Hintergrungfarbe ändern

automatisch Hintergrungfarbe ändern
23.02.2006 00:19:13
Peter
Hallo an alle,
ich möchte das in einer größeren Tabelle, bei der jeweils aktivierten Zeile, automatisch die Hintergrundfarbe ändert.
In der Tabelle ist in der Spalte C der wichtigste Wert. Wenn ich z.B die Zelle C25 anklicke, soll sich nur in dieser Zeile von A25 bis Z25 die Hintergrundfarbe in Gelb ändern.
Wenn ich in eine andere Zeile 38 gehe, soll die Zeile 25 wieder die ganz normale Frage habe und die Zeile 38 soll jetzt Gelb im Hintergrund sein.
In der Zeile 1 soll diese Funktion nicht funktionieren.
Ich hoffe mir kann jemand weiterhelfen – schon mal Dank´ im voraus.
Gruß Peter

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

Betreff
Datum
Anwender
Anzeige
AW: automatisch Hintergrungfarbe ändern
23.02.2006 07:06:40
WernerB.
Hallo Peter,
das nachstehende Makro gehört in das Modul des entsprechenden Tabellenblattes; es reagiert nur, wenn eine Zelle in der Spalte "C" angeklickt wird (ausgenommen Zeile 1):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lar As Long
If Target.Row = 1 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
lar = Cells(Rows.Count, 3).End(xlUp).Row
Range("A2:Z" & lar).Interior.ColorIndex = xlNone
Range("A" & Target.Row & ":Z" & Target.Row).Interior.ColorIndex = 6
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: automatisch Hintergrungfarbe ändern
23.02.2006 22:04:55
Peter
guten abend Werner,
erst mal v i e l e n D a n k - klappt einwandfrei !!
Ich hatte etwas mit der Zeile 1 vergessen - wenn eine Zelle in der Zeile 1 angeklickt wird soll die letzte Zeile die mit Gelb aktiviert war, wieder deaktiviert sein.
Hatte ich gestern abend vergessen ...
Gruß Peter
AW: automatisch Hintergrungfarbe ändern
24.02.2006 09:42:57
WernerB.
Hallo Peter,
no Problem:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lar As Long
If Target.Column <> 3 Then Exit Sub
lar = Cells(Rows.Count, 3).End(xlUp).Row
Range("A2:Z" & lar).Interior.ColorIndex = xlNone
If Target.Row = 1 Then Exit Sub
Range("A" & Target.Row & ":Z" & Target.Row).Interior.ColorIndex = 6
End Sub

Gruß
WernerB.
Anzeige
AW: automatisch Hintergrungfarbe ändern
24.02.2006 22:11:02
Peter
Hallo Werner,
Klappt einwandfrei - D A N K E
Gruß Peter

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige