Aktive Zeile hervorheben
In welcher Tabellen-Zeile bin ich gerade ?
Das fragt sich der Excel-Jongleur oft...
So wär's viel besser:
Die Zeile der aktiven Zelle wird automatisch farbig :-)
Wie geht das ???
1. VBA-Editor öffnen, dafür einfach Alt und F11 drücken
2.
Im VBA-Editor links per Doppelklick das gewünschte Register für die Zeilen-Hervorhebung auswählen.Hier exemplarisch 'Tabelle1'.
3. Folgendes im Quellcode-Fenster eingeben.
VBA
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo dasEnde
'--Wenn mehrere Zellen markiert werden passiert nix
If Target.Cells.Count > 1 Then Exit Sub
'--ZeilenNr der angeklickten Zeile ermitteln
iRow = Target.Row
'--Hintergrundfarbe aller Zellen zurücksetzen
Cells.Interior.Pattern = xlNone
'--Die ersten 100 Zellen der Zeile 'iRow' einfärben
Range(Cells(iRow, 1), Cells(iRow, 100)).Interior.ColorIndex = 36
dasEnde:
End Sub
4. Ausprobieren und freuen.
