Reiter farbig
03.06.2009 09:22:06
Sandra
ich nutze folgendes Makro. Immer wenn Zeile B2 des Tabellenblattes leer ist, wird der Reiter rot.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B2") "" Then
ActiveWorkbook.Sheets("Ma").Tab.ColorIndex = 3
Else
ActiveWorkbook.Sheets("Ma").Tab.ColorIndex = 15
End If
End Sub
Da die Datei ca. 100 Blätter hat, wäre meine Frage, ob man wirklich immer den Tabellennamen aufführen muss. Kann man das auch allgemein formulierem, damit ich das Makro kopieren kann?
Vielen Dank!
Sandra