Durchlaufen -loop- jedes Arbeitsblatt

loop worksheet

Fußballergebnisse und Sportwetten lassen sich in Excel hervorragend analysieren. In der Post-Kategorie „VBA-Snippets“ stelle ich einige Makros bereit, die viel Zeit und stupide Arbeiten ersetzen als auch eine gewisse Fehlerquote ausschließen.

Durchlaufen jedes Arbeitsblattes

Das Durchlaufen jedes Arbeitsblatts oder jeder Arbeitsmappe ist eine sehr häufige Aktion. Eine, die Sie möglicherweise regelmäßig durchführen. Der folgende Code sollte Sie auf den richtigen Weg bringen.


Sub LoopThroughWorkbooks ()

'Erstellen Sie eine Variable für die Arbeitsmappe und auch die Ausgabemeldung 
Dim Ws As Worksheet
Dim Message As String
'Durchlaufen Sie jedes Arbeitsblatt in der Worksheets-Auflistung der aktiven Arbeitsmappe
For Each Ws In ActiveWorkbook.Worksheets

    'Fügen Sie die Aktionen, die Sie ausführen möchten, in jedes Arbeitsblatt ein
    'In diesem Beispiel wird der Name eines Blattes zu einer Zeichenfolge hinzugefügt
    Message = Message & Ws.Name & vbNewLine

Next Ws

' Gibt die Zeichenfolge aus, die den Namen jedes Arbeitsblatts enthält
MsgBox Message

End Sub

Total Page Visits: 126 - Today Page Visits: 1