in #VBA alle #ausgewählten #Arbeitsblätter #abarbeiten


Sie wollen mit #VBA alle ausgewählten (=markierten) #Excel #Arbeitsblätter nacheinander bearbeiten? Das machen Sie so:

Public Sub AuswahlBlattSchleife()
Dim mySh As Worksheet
For Each mySh In ThisWorkbook.Windows(1).SelectedSheets
    MsgBox mySh.Name ' was auch immer Sie nun machen wollen
Next mySh
Set mySh = Nothing
End Sub

Die SelectedSheets sind eine Aufzählung, die je Fenster existiert. Ich gehe bei dieser Schleife davon aus, dass Sie die Arbeitsmappe in nur einem Fenster geöffnet haben 🙂 Und dass Sie mit der Arbeitsmappe, in der der Code steht (ThisWorkbook) arbeiten wollen – sonst müssen Sie ThisWorkbook durch ein anderes Workbook-Objekt ersetzen.

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-)
Dieser Beitrag wurde unter Excel, VBA abgelegt und mit , , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s