Sheets.name
08.01.2004 13:57:59
Michael
versuche neue sheets hinzuzufügen mit den namen eines eingelesenen Feldes:
Sub Sheetzufügen()
Dim i%, Arr(501), k%
On Error Resume Next
Sheets("Tabelle1").Select
For i = 0 To 500
Arr(i) = Cells(1 + i, 30)
Next
For i = 0 To 500
Sheets.Add
Sheets("Tabelle" & (i + 509)).Select
Sheets("Tabelle " & (i + 509)).Name = Arr(i)' '''es wird nicht der NAme des Feldes hinzugefügt!?
k = k + 1
Next
MsgBox k
End Sub
Leider wird kein Name den Tabs gegeben!
Woran liegt das?
Danke im voraus
michael