List Tabellenbläter ab Celle A13 nach unten
15.07.2017 11:52:43
irwitzer
ich habe einen denk- oder Codefehler denn ich nicht durchdringe und der wahrscheinlich sehr einfach ist, Wald/Bäume Problem.
Liste aller Tabellenblätter auf dem Ersten Sheet der Mappe, Deckblatt_* (funktioniert)
aber erst ab der Zelle A13 nach unten sollen die Tabellenblätter gelistet werden (funktioniert nicht, werden ab A1 gelistet)
ein Bedingung ist: alle Blätter der Mappe sollen gelistet werden, inkl. dem Ersten Blatt, Blattnamen in der Startzelle A13
Ich habe 3 Stunden gesucht und probiert es ist entweder so einfach das ich einfach darüber hinweg lese oder geht nicht auf die Art wie ich es angefangen habe?! Kann mir jemand helfen, liebe Grüße Irwitzer
Sub Blätter()
Dim B, i%
Sheets(1).Select
For Each B In ActiveWorkbook.Sheets
i = i + 1
Cells(i, 1).Value = Sheets(i).NAME
Next
End Sub
Anzeige