Tabellennamen auslesen
16.09.2016 20:34:52
websnake75
ich lese mit einem Makro die Tabellennamen meines Dokuments aus und diese werden in einer Liste aufgeführt. Ich möchte jetzt allerdings jeden Tabellenblattnamen 6mal untereinander dargestellt haben.
Kann mir jemand helfen?
Option Explicit
Sub Blattnamen()
Dim lngSheets As Long 'Sheets sind alle Register
Dim i As Long
lngSheets = ThisWorkbook.Sheets.Count
For i = 1 To lngSheets
ThisWorkbook.Sheets("Steuer").Cells(3 + i, 1).Value = ThisWorkbook.Sheets(i).Name
Next i
End Sub
eets("Steuer").Cells(3 + i, 1).Value = ThisWorkbook.Sheets(i).Name
Next i
End Sub