Servus zusammen
ich hätte da mal wieder was neues, konnte leider im Netz nix finden.
Problem - ich habe eine unbestimmte Anzahl an Tabellenblättern, die aber allesamt 4-stellige numerische Namen haben (zb 1000, 2650, 3612, etc).
Ich will alle Blätter mit einem solchen Namen auswählen und einheitlich formatieren.
(- vielleicht lässt sich das auch ohne VBA lösen? Es handelt sich um einzelne Pivottables, die ich mir mit dem Befehl "Berichtsfilterseiten anzeigen..." automatisch generiere. Leider kann man offensichtlich die Autoformatierung bei den Pivottables nicht aus schalten. Wenn die zu erstellenden Tables das gleiche Format bekommen würden wie die Ursprungs-Pivot, dann wäre mein Problem auch gelöst.)
Den Formatsbefehl habe ich mir mit Makrorecorder schon gebaut. Wähle ich ein einzelnes Blatt aus, funktioniert der Code. Ich möchte aber alle gleichzeitig...
Auszug aus meinem Code:
For Each wksWS In ActiveWorkbook.Worksheets
If wksWS.Name Like "****" Then
'gibt es sowas wie Platzhalter in VBA? **** war meine erste Idee....
'...die ganze Formatierung lasse ich hier mal raus.....
End If
Next wksWS
auch schon probiert, leider auch erfolglos:
Dim i As Integer
For i = 1000 To 9000
If Worksheets(Worksheets.Count).Name = i Then
'Formatierung....
End If
Next i
Bis jetzt kamen die geistreichen Ideen immer postwendend ;)
Ich bin gespannt und harre der Lösung.
Gruß
Easy