/ / Durchlaufen Bücher und Blätter in Excel VBA

Durchsuchen Sie Bücher und Tabellen in Excel VBA

Unten sehen wir uns ein Programm in Excel VBA Das Durchläuft alle geöffneten Arbeitsmappen und Arbeitsblätterund zeigt alle Namen an.

Situation:

Schleife durch Bücher und Blätter Beispiel

Fügen Sie der Befehlsschaltfläche die folgenden Codezeilen hinzu:

1. Zuerst deklarieren wir zwei Objekte und eine Variable. Ein Objekt vom Typ Workbook, das wir Buch nennen, ein Objekt vom Typ Worksheet, das wir aufrufen, und eine Variable vom Typ String, die wir Text nennen.

Dim book As Workbook, sheet As Worksheet, text As String

2. Wir möchten alle geöffneten Arbeitsmappen durchlaufen. Fügen Sie dazu die folgende Codezeile hinzu:

For Each book In Workbooks

3. Wir schreiben den Text "Arbeitsmappe:", den Namen der Arbeitsmappe und den Text "Arbeitsblätter:" "in den variablen Text.

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

Hinweis: Sie können den Operator & zum Verketten (Verbinden) von Elementen verwenden. Um eine neue Zeile zu beginnen, können Sie vbNewLine verwenden.

4. Fügen Sie die folgende Codezeile hinzu, um alle Arbeitsblätter einer Arbeitsmappe zu durchlaufen:

For Each sheet In book.Worksheets

5. Wir schreiben die Namen der Arbeitsblätter einer Arbeitsmappe in den variablen Text.

text = text & sheet.Name & vbNewLine

6. Schließen Sie die zweite Schleife.

Next sheet

7. Fügen Sie eine weiße Linie hinzu.

text = text & vbNewLine

8. Vergessen Sie nicht, die erste Schleife zu schließen.

Next book

9. Schließlich zeigen wir den variablen Text mit einer MsgBox an.

MsgBox text

10. Testen Sie das Programm. Bevor Sie auf die Befehlsschaltfläche klicken, geben Sie Ihren Arbeitsblättern beschreibende Namen und öffnen Sie eine andere leere Arbeitsmappe.

Ergebnis:

Durchsuchen Sie Bücher und Tabellen in Excel VBA

Lesen Sie auch: