ich habe mal wieder ein Problem bei dem mir auch die Recherche nur ein bisschen weitergeholfen hat.
Ich möchte in einer Datei an in alle Tabellen etwas hineinkopieren die nur 4-Stellen lang sind (der Name der Tabelle).
Ich habe diesen Code:
Sub fusszeileAlleTabellen()
Dim sh As Object
For Each sh In Application.Worksheets
With sh.PageSetup
.CenterFooter = "&Z\&F"
End With
Next
End Sub
Jetzt bräuchte ich wohl noch eine Prüfung für jedes Worksheet ob der Name nur 4 Stellen hat.Wie geht das bzw. wie baut man das dann noch in meine Schleife oben über alle Worksheets ein?
Gefunden habe ich das hier:
Len(ActiveSheet.Name)
Aber was man jetzt genau mit den Len-Funktion anfängt weiß ich nicht.
Kann jemand helfen?
Vielen Dank und viele Grüße Lutz