Hallo zusammen,
ich möchte mittels VBA/Makro und einem checkbutton eine Auflistung der Worksheet.namen erhalten, die sich zwischen dem Tabellenblatt "Start" und Tabellenblatt "Ende" befinden.
Die Auflistung sollte direkt unter dem Checkbutton erfolgen. Leider habe ich nur Quellcodes bezüglich Auslesen aller Tabellenname gefunden, dies funktioniert auch. Aber die Eingrenzung zwischen dem Blatt "Start" und "Ende" bekomme ich nicht hin, vielleicht kann man dies mit Hilfe einer If Bedingung/ Abbruchbedingung hinbekommen.
Private Sub CommandButton1_Click()
Dim blatt As Object
Dim zeile As Double
zeile = 7
For Each blatt In sheets
ActiveSheet.Cells(zeile, 14).Value = blatt.Name
zeile = zeile + 1
Next blatt
End Sub
Danke im Voraus für die Ratschläge.
Viele Grüße
Franziska
|