Excel und VBA - Die Excel-FAQ

Namen der selektierten Tabellenblätter auslesen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Namen der selektierten Tabellenblätter auslesen

Problem: Die Namen der selektierten Tabellen sollen genannt werden.

StandardModule: Modul1

Sub GroupSheets()
   Dim iCounter As Integer
   With ActiveWindow.SelectedSheets
      For iCounter = 1 To .Count
         MsgBox .Item(iCounter).Name
      Next iCounter
   End With
End Sub