Nur bestimmte Tabellen in Excel mit Schleife durchlaufen
Schritt-für-Schritt-Anleitung
Um nur bestimmte Tabellen in Excel zu durchlaufen, die eine Länge von vier Zeichen im Tabellennamen haben, kannst Du den folgenden VBA-Code verwenden. Dieser Code überprüft die Länge jedes Tabellenblatts und fügt eine Fußzeile hinzu, wenn der Name die gewünschte Länge hat.
Sub fusszeileAlleTabellen()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If Len(sh.Name) = 4 Then
With sh.PageSetup
.CenterFooter = "&Z&F"
End With
End If
Next sh
End Sub
In diesem Code wird die Len-Funktion verwendet, um die Anzahl der Zeichen im Namen des Arbeitsblatts zu überprüfen. Wenn diese gleich vier ist, wird die Fußzeile entsprechend gesetzt.
Häufige Fehler und Lösungen
Fehler: Der Code wird nicht ausgeführt.
Lösung: Stelle sicher, dass Du den Code im VBA-Editor (Alt + F11) in einem Modul eingefügt hast und dass die Makros aktiviert sind.
Fehler: Der Code fügt die Fußzeile nicht hinzu.
Lösung: Überprüfe die Namen der Tabellenblätter und stelle sicher, dass sie tatsächlich vier Zeichen lang sind. Du kannst auch den Debug-Modus verwenden, um zu sehen, ob die Bedingung tatsächlich erfüllt wird.
Alternative Methoden
Wenn Du eine andere Methode ausprobieren möchtest, kannst Du die Like-Anweisung verwenden. Diese Methode ist jedoch weniger präzise, da sie auf Mustervergleiche basiert. Hier ist ein Beispiel:
For Each sh In ThisWorkbook.Worksheets
If sh.Name Like "????" Then
sh.PageSetup.CenterFooter = "...."
End If
Next sh
In diesem Fall steht ???? für genau vier beliebige Zeichen.
Praktische Beispiele
Angenommen, Du hast folgende Tabellenblätter: Test, Data, Info, 1234, und ABCDE. Der obige Code wird nur die Fußzeile für das Tabellenblatt 1234 setzen, da es das einzige ist, das genau vier Zeichen hat.
Tipps für Profis
- Nutze den Debugger, um den Code Schritt für Schritt zu durchlaufen. Das hilft Dir, mögliche Fehler schneller zu finden.
- Dokumentiere Deinen Code mit Kommentaren, um die Funktionsweise für Dich und andere nachvollziehbar zu machen.
- Überlege, ob Du die Funktionalität erweitern möchtest, z.B. durch das Hinzufügen von weiteren Prüfkriterien für die Tabellennamen.
FAQ: Häufige Fragen
1. Wie kann ich den Code auf bestimmte Tabellen beschränken?
Du kannst die Namen der Tabellen in eine Liste einfügen und dann überprüfen, ob der aktuelle Tabellenname in dieser Liste enthalten ist.
2. Funktioniert dieser Code in Excel 2016?
Ja, der Code ist mit den meisten Excel-Versionen kompatibel, einschließlich Excel 2016. Stelle sicher, dass Du die VBA-Umgebung nutzt.