Num. Sheetnamen mit vorausg. 0 in Tab schreiben
12.12.2012 14:25:01
Peter
Ich möchte alle Tabellennamen auslesen. Einige Tabellen haben eine numerische Bezeichnung (z.B. 0100 oder 0827). Beim Auslesen soll diese Null nicht verloren gehen.
Sub Tabellenauslesen()
Dim wks As Worksheet, lngZeile as Long
ThisWorkbook.Activate
lngZeile = 1
For Each wks in Worksheets
Sheets("new").Cells(lngZeile, 1) = "" & wks.Name
lngZeile = lngZeile + 1
Next wks
End Sub
Wie kann man das lösen?
Gruss, Peter