Office: makro mit variablen zielen

hi!

ich wollte fragen, ob es möglich ist ein makro zu schreiben, dass bei allen tabellen, deren name mit "WB " anfängt die Zelle A1 anders einzufärben.
wie müsste so ein makro aussehen?

 

ja ist möglich ,

rufe dazu den VBA-Editor auf [ALT]+[F11]
und kopiere den Code Bereich Komplett dort hinein
achte darauf das du auch "Diese Arbeitsmappe " ausgewählt hast
weil dann der code bei jedem start ausgeführt wird...

Code:

Sub workbook_open()
For Each Blatt In Sheets
TBname = Blatt.Name
TBcheck = UCase(Left(TBname, 2))
If TBcheck = "WB" Then

Blatt.Select
Range("A1").Select
With Selection.Interior
 Rem .ColorIndex = 2 'Weiss
.ColorIndex = 5 'Blau
.Pattern = xlSolid
End With

End If
    Next Blatt
Worksheets(1).Select
End Sub

Die Farbtabelle für das .Colorindex =
http://www.picpaste.de/colorindex.JPG


so bei fragen und Problemen einfach nochmals melden

Mfg Schnake

 

tut mir leid , dass ich erst so spät antworte, bin nicht früher dazu gekommen
wenn ich des ausprobier, bekom ich ein fenster:
laufzeitfehler: 1004
die select-methode des range objekts konnte nicht ausgeführt werden

was soll ich machen?