Hallo Xcelperten!
Bei nachfolgendem Code, der mir 100 berechnete Tabellenblätter ( immer dasselbe mit anderen Daten ) in eine Arbeitsmappe kopieren soll habe ich das Problem, daß Excel beim kopieren des 37 Tabellenblattes in die xxx.xls mit der Fehlermeldung:
Laufzeitfehler 1004
Die Copy-Methode des Worksheet-Ojektes ist fehlerhaft
bei Sheets("FIL E LF").Copy Before:=Workbooks("xxx.xls").Sheets(1)
stehen bleibt.
Wenn ich den Code in eine neue Arbeitsmappe kopiere und das ganze ohne Daten mache funktioniert es aber.
Kann man den Code verbessern, abkürzen??
Hier der Code:
Sub PDFsam_Export()
Dim ZeilenIndex As Long
Dim GetKunde As Variant
ZeilenIndex = 2
Sheets("THX").Copy
ActiveWorkbook.SaveAs FileName:= _
"D:\Daten\Fleisch\FleischGJ2003\Filialen\Monatsbericht\xxx.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks("xxx.xls").Sheets(1).Name = Worksheets("THX").Cells(2, 4).Value
Windows("Test.xls").Activate
Do While True
Windows("Test.xls").Activate
With Worksheets("Liste_nBet").Cells(ZeilenIndex, 1)
GetKunde = .Value
End With
If GetKunde = "" Then Exit Do
Worksheets("FIL E LF").Cells(2, 4).Value = GetKunde
Sheets("FIL E LF").Copy Before:=Workbooks("xxx.xls").Sheets(1)
Workbooks("xxx.xls").Sheets(1).Name = GetKunde
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ZeilenIndex = ZeilenIndex + 1
Loop
End Sub