Listing Blattnamen
27.06.2005 14:06:08
helena
möchte INhaltsverzeichnis erstellen, erst INhalt Spalte A
löschen, ich stehe im Blatt "INFO" und dann sollen alle Blattnamen
aufgelistet werden.
Sub Blattliste()
Dim wks As Worksheets
Dim i As Integer
Columns("A:A").Select
Selection.ClearContents
Set wks = Worksheets("INFO")
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> wks.Name Then
wks.Cells(i, 1) = Worksheets(i).Name
End If
Next i
End Sub
Danke für Eure Hilfe
gruss helena
Anzeige