VBA – Alle Arbeitsblätter mit For Each durchlaufen

Makros, die auf eine gesamte Arbeitsmappe angewendet werden, können nützlich sein, um Daten aus mehreren Blättern in eine neue Arbeitsmappe zu extrahieren, erweiterte Formatierungen auf alle Blätter anzuwenden oder aus vielen anderen Gründen. Im Folgenden finden Sie die grundlegende Syntax und ein funktionierendes VBA-Codebeispiel, das auf jedes Blatt in einer Arbeitsmappe angewendet wird.

Jedes Blatt in der Arbeitsmappe in einer Schleife durchlaufen

Die grundlegende Syntax für die Schleife durch jedes Blatt in einer Arbeitsmappe und die Anwendung von VBA-Code darauf ist die folgende:

For Each ws In Worksheets
  'Hier aktualisieren oder etwas tun
Next

Jedes Arbeitsblatt in der Arbeitsmappe mit VBA aktualisieren

Um ein funktionierendes Beispiel zu erhalten, kopieren Sie den folgenden Code, fügen ihn in ein Modul ein und führen ihn aus. Das Ergebnis ist ein Text, der in die Zelle A1 jedes Arbeitsblatts in Ihrer Arbeitsmappe eingefügt wird.

Public Sub AufAlleAnwenden()

'Unsere Variable deklarieren
Dim ws As Worksheet

For Each ws In Worksheets
'Code zwischen For und Next einfügen
'Dafür, was Sie mit jedem Blatt machen möchten

  ws.Range("A1") = "AutomateExcel.com"
Next

End Sub