Lässt sich dieses per Makro außer Funktion setzen?
https://www.herber.de/bbs/user/72382.xls
Grüße Klaus
Dim vorgabe
vorgabe = Cells(1, 1)
Select Case vorgabe
Case 2010: Cells(1, 2).Interior.ColorIndex = 3
Case 2011: Cells(1, 2).Interior.ColorIndex = 4
Case 2012: Cells(1, 2).Interior.ColorIndex = 7
Case "Elektrowerkstatt": Cells(1, 2).Interior.ColorIndex = 9
Case Else: Cells(1, 2).Interior.ColorIndex = xlNone
End Select