Makro in allen Tabellenblättern ausführen
22.05.2018 11:04:17
Tim
ich kenne mich mit der VBA Programmierung nicht besonders gut aus und habe daher eine Frage.
Ich möchte alle Tabellenreiter Färben, je nach dem was in Zelle E10 steht.
Dafür habe ich folgendes Makro:
Sub Farbe()
Dim cell As Range
If Range("$E$10") = "TG/MPG (Kölmel)" Then
ActiveSheet.Tab.ColorIndex = 6
Else
ActiveSheet.Tab.ColorIndex = xlNone
End If
End Sub
Wie schaffe ich es das, das Makro in jedem Tabellenblatt immer automatisch ausgeführt wird ?Vielen Dank im Voraus,
Gruss Tim