Geht das?
Danke
Marco
Hallo Marco
Die Liste wird im ersten Tabellenblatt in Spalte A aufgeführt.
Gruss
Chris
Danke
Marco
hiermit müsste es gehen:
Sub test()
Dim wks As Worksheet
i = 8
For Each wks In Worksheets
If wks.Name <> "Tabelle2" And wks.Name <> "Tabelle3" Then
Range("H" & i).Value = wks.Name
i = i + 1
End If
Next wks
End Sub
hier habe ich die Tabelle2 und die Tabelle3 ausgeschlossen
du musst den Code gegebenenfalls anpassen
Gruss
Steffen
Danke
Danke
Marco
zuerst musst du eine ListBox(Listenfeld) erstellen (Ansicht, Symbolleisten, Steuerelement-Toolbox) und dann änderst du den Makro so:
Sub test()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Name <> "Tabelle2" And wks.Name <> "Tabelle3" Then
ActiveSheet.ListBox1.AddItem wks.Name
End If
Next wks
End Sub
Wenn du noch fragen hast dann melde dich einfach
genau so hab ich das gedacht...
Dankeschön
Marco
Sub test()
Dim wks As Worksheet
ActiveSheet.ListBox1.Clear
For Each wks In Worksheets
If wks.Name <> "Tabelle2" And wks.Name <> "Tabelle3" Then
ActiveSheet.ListBox1.AddItem wks.Name
End If
Next wks
End Sub
gruss
Steffen