ich möchte den Tabellenreiter eines Arbeitsblattes färben, wenn die Zelle K17 via einer bedingten Formatierung "Rot" gefärbt wird. Wenn sie "Grün" wird, dann grün...
Dazu hab ich aus den Internet folgenden VBA-Code:
Sub Auto_Open()
Dim objWorksheet As Worksheet
For Each objWorksheet In ThisWorkbook.Worksheets
If objWorksheet.Cells(17, 11).Interior.Color = 3 Then
objWorksheet.Tab.ColorIndex = 3
ElseIf objWorksheet.Cells(17, 11).Interior.ColorIndex = 10 Then
objWorksheet.Tab.ColorIndex = 10
Else
objWorksheet.Tab.ColorIndex = xlNone
End If
Next
End Sub
Soweit funktioniert es, aber nur, wenn die Zelle direkt "Rot" formatiert ist, aber NICHT, wenn sie via der bedingten Formatierung rot wird...
Bräuchte mal eure Hilfe, hab aber keine Ahnung von VBA...
Vielen Dank, Taratze