Einfärben Zeile nach Klick in Spalte A

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 With Target ' Highlight the entire row and column that contain the active cell .EntireRow.Interior.ColorIndex = 15 ' .EntireColumn.Interior.ColorIndex = 8 End With Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target If .Cells.Count > 1 Then Exit Sub If .Column > 18 Then Exit Sub Application.ScreenUpdating = False ' Clear the color of all the cells in Columns(A:R) Columns("A:R").Interior.ColorIndex = 0 If .Column = 1 Then ' Highlight the range(A:R) in entire row when their column A contains the active cell .Resize(1, 18).Interior.ColorIndex = 15 '.Resize(1, 18).Interior.ColorIndex = 8 End If End With Application.ScreenUpdating = True End Sub

Hi
Temporäres Einfärben macht man am besten über die Bedingte Formatierung.
Geht am einfachsten und macht die wenigsten Probleme.
als Code reicht folgendes:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("A1")
If Target.Column = 1 then
.Value = Target.Row
Else
if .Value  "" then .ClearContents
end If
End with
End Sub

dann richtest du für die Zellen, die Umgefärbt werden sollen (A7:R600) eine Bedingte Formatierung ein mit der Formel als Regel: =Zeile()=$A$1
fertig aus, mehr nicht.
über die Bedingte Formatierung kannst du so regeln, welche Zellen betroffen sind und du musst dich auch nicht darum kümmern, die alten Farben wieder herzustellen, weil die jetzt nicht mehr gelöscht werden.
als Zelle kannst du statt A1 auch jede andere freie Zelle nehmen.
Gruß Daniel

du brauchst nur irgendeine freie Zelle, in welche du die Zeilennummer per Makro schreibst.
nur diese eine Zelle, irgendeine. ich hab halt mal A1 genommen, es kann aber auch jede andere sein, irgendwo auf deinem Tabellenblatt
dann vergleichst du in der Bedingten Formatierung die Zeilennummer der aktuellen Zeile (Funktion Zeile()) mit dem Wert in dieser Zelle und wenn ja, werden die Zellen mit dieser Bedingten Formatierung gefärbt.
es geht auch ohne Zelle.
als erstes folgenden Code ins Modul des Tabellenblatts:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
ThisWorkbook.Names.Add "Aktuelle_Zeile", RefersTo:="=" & Target.Row
Else
ThisWorkbook.Names.Add "Aktuelle_Zeile", RefersTo:="=" & 0
End If
End Sub

die Regel für die Bedingte Formatierung in den betroffenen Zellen lautet dann:


=Zeile()=Aktuelle_Zeile

wichtig ist beim erstellen, dass du zuerst das Makro erstellst und dann die Bedingte Formatierung anlegst, damit der Name auch vorhanden ist.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Einfärben Zeile nach Klick in Spalte A

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread