Excel VBA Befehle aus Folge 19: For Each - Schleifen

Inhalt dieser Folge:

  • Das fantastische Potential von For Each - Schleifen!
  • Wie kann ich mit einem Knopfdruck alle Tabellenblätter umbennen, schließen oder speichern?
  • Wie kann ich mir den Namen von jeder Arbeitsmappe über eine MsgBox ausgeben lassen?
  • Wie kann ich alle Tabellenblätter meiner Arbeitsmappe schützen?
Download
Diese Folge als PDF kostenlos herunterladen
Folge19 For-Each-Schleifen.pdf
Adobe Acrobat Dokument 487.0 KB

Die Syntax:

For Each [Element] In [Gruppe]

[Anweisungen]

Next [Element]


Alle Tabellenblätter gleichzeitig ansprechen

 

Ausgangssituation 1 :

  • Eine Arbeitsmappe mit 4 Tabellenblättern
  • Die Tabellenblätter (Elemente) befinden sich alle in einer Arbeitsmappe (Gruppe)

'Alle Namen der Tabellenblätter ausgeben

Sub Beispiel1()

Dim meinblatt As Worksheet

 

For Each meinblatt In Worksheets

'hier kommen die Anweisungen hin

MsgBox meinblatt.Name

Next meinblatt

End Sub