ich bin auf einen seltsamen Fehler beim Auslesen von Blattnamen mittels VBA gestoßen: die Anweisung
c = Worksheets(5).Name
hängt sich genau beim Wert 5 mit der Meldung "Anwendungs-oder objektdefinierter Fehler" auf. Setze ich die Zahl auf kleinere oder höhere Werte, funktioniert alles.
Die Blattnamen sind alle ähnlich, ich habe den Blattnamen auch schon geändert, hilft alles nichts. Ich habe das Makro auch von anderen Tabellenblättern aus gestartet, geht trotzdem nicht. Was ist da los?
Hier noch das komplette Makro:
Public B(1 To 300) As String
Sub Blaetter()
'liest die Blattnamen und listet sie im Feld B(300) auf
Application.ScreenUpdating = False
Z = ActiveWorkbook.Worksheets.Count
Z = Z - 3
c = Worksheets(5).Name
For i = 1 To Z
B(i) = Worksheets(i).Name
Next i
End Sub
Habt ihr noch Ideen?
Gruß
Helmut