Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Namen der selektierten Tabellenblätter auslesen
Problem
Die Namen der selektierten Tabellen sollen genannt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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