ich habe in meiner Datei 2 Blätter. Im Sheet1 befindet sich eine Spalte (K), die von Zeile 4 bis 133 Daten enthält. Mit unten stehendem Makro möchte ich nun das Sheet2 entsprechend der Anzahl der Daten in Spalte K kopieren, in die Mappe einfügen und das jeweils neue Blatt entsprechend Zell-Inhalt in K umbenennen.
Erstellt wurde das Makro in Excel 9.0.
Problem in Excel 9.0 : Makro läuft 1 mal fehlerfrei, nach dem Löschen der neuen Blätter und erneutem Makroaufruf erhalte ich
beim Anlegen des Blattes (Wert aus Zeile 128) Fehlermeldung: Copy-Methode des Objekts fehlgeschlagen.
Nach erneutem Löschen der neuen Blätter und Makrostart erscheint diese Fehlermeldung sofort.
Problem in Excel 8.0: o.g. Fehlermeldung erscheint sofort.
Weiß jemand Rat ?
Gruß
Lutz
Sub CopyKst()
Dim wks As Worksheet
Dim iRow As Integer
Application.ScreenUpdating = False
Set wks = ActiveSheet
iRow = 4
Do Until IsEmpty(wks.Cells(iRow, 11))
Worksheets(2).Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = wks.Cells(iRow, 11).Value
iRow = iRow + 1
Loop
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub
Code eingefügt mit Syntaxhighlighter 2.1