Problem mit Laufzeitfehler 13
14.09.2004 09:25:02
Matthias
Ich habe folgendes Problem
Ich habe mir den folgenden Quellcode bei euch abgschrieben. Habe versucht ihn bei mir anzuwenden bekamm ab einen bestimmten Punkt den Laufzeitfehler 13
Ich habe den Punkt wo der Fehler auftritt hier als ein Kommentar gekennzeichnet
bitte um hilfe
Danke schon mal im vorraus
Sub cmd_Blätter_einfügen()
Dim iCounter As Integer
Dim iCount As Integer
Application.ScreenUpdating = False
For iCounter = 1 To 40
iCount = Worksheets.Count
Worksheets(iCount).Visible = True
'Worksheets(iCount).Copy after:=Worsheets(iCount)
ActiveSheet.Name "Page_1" & iCounter
With ThisWorkbook.VBprojekt.VBComponents(ActiveSheet.CodeName)
.Properties("_Codename").Value = ActiveSheet.Name
End With
Next iCounter
Worksheets(1).Select
Application.ScreenUpdating = True
End
Sub