Lesehilfe für große Tabellen: Aktuelle Zeile fett hervorheben

Das erste Makro, dass ich Ihnen vorstellen möchte, ist eine Lesehilfe für große Tabellen. Es wird immer automatisch die aktuelle Zeile fett hervorgehoben. Sobald mehr als eine Zeile markiert ist, passiert dagegen nichts. Das Makro hilft Ihnen also dabei, immer leicht die Werte einer Zeile lesen zu können, ohne in der Zeile zu verrutschen.

Den Programmcode fügt Ihr im VBA Editor in das jeweilige Tabellenblatt (vgl. Abbildung 1) ein! (nicht als Modul!)

Makro-Programmcode:

Private MeineZeile As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim markierteZeilen As Long

markierteZeilen = Selection.Rows.Count

If markierteZeilen <> 1 Then 
	Exit Sub
Else 
	If Not MeineZeile Is Nothing Then 
		MeineZeile.Font.Bold = False 
	End If 
	Target.EntireRow.Font.Bold = True
End If

Set MeineZeile = Target.EntireRow

End Sub

Abbildung 1

Beispieldatei:
AktuelleZeileFettHervorheben.xls

 

Schreibe einen Kommentar

*