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.
katharinakanns
