ich habe eine Arbeitsmappe mit 40 Tabellenblättern.
Über das Makro Sub format() formatiere ich jedes Tabellenblatt einzeln. Wie kann ich das Makro über alle Tabellenblätter automatisch laufen lassen (Ausnahme Sheet Data)
Viele Grüße
Mat
Sub ftSheets()
Dim sh As Object
For Each sh In ActiveWorkbook.Worksheets
If sh.Name "Data" Then
'hier Deine Formatierungen für das jeweilige Sheet (sh.)
'zum Beispiel:
sh.Range("A1:C1").Interior.ColorIndex = 3
End If
Next
End Sub
GrußDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen