String bleibt leer
René
Ich wollte 23 Tabellenblätter per Makro erzeugen, und diese nach Zellinhalten benennen.
Das erste Blatt wird erzeugt und auch benannt, danach bricht das Makro fehlerhaft ab.
Soweit ich das rausgefunden habe, ist der verantwortliche String zur Blattbenennung ab dem zweiten erzeugten Blatt leer.
Ich habe mit Debug.Print mir die Zählvariable und den String anzeigen lassen, Variable da, String nicht.
Lasse ich das Ganze ohne Blatterzeugung laufen, werden im Direktbereich alle Namen die dem String übergeben wurden gelistet.
Hier mein Code
Sub BlätterEinfügen()
Dim zeile As Integer
Dim BN As String
For zeile = 1 To 23
BN = Cells(zeile, 1)
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = BN
Next zeile
End Sub
Ich weiß echt nicht mehr wo ich den Fehler suchen soll.
Wie gesagt, nach dem ersten erzeugten Blatt bleibt BN leer.
Gruß René
Anzeige