blattnummern 2. versuch *schnief*
05.10.2004 15:44:17
Hans
ich habe hier ein kleines problemchen, bei dem ich etwas hilfe benötige.
in meiner exceldatei gibt es etwa 200 tabellenblätter. durch das löschen und hinzufügen von blättern entstehen in der nummerierung der blätter natürlich lücken. ich möchte in spalte A alle blattnamen erstellen, allerdings sollen die blätter immer die gleiche position haben, selbst wenn irgendwann welche gelöscht werden.
Dim wks As Worksheet
i = 1
For Each wks In Worksheets
Range("A" & i) = Worksheets(i).Name
i = i + 1
Next
oder
For i = 1 to Worksheets.count
Range("A" & i) = Worksheets(i).Name
Next
hilft mir nicht weiter.
gruß hans