Office: Laufzeitfehler 1004

Hallo,
ich bekomme beim Ausführen eines Makros folgenden Fehler angezeigt:

Laufzeitfehler 1004: Die Methode 'Paste' für das Objekt '_Worksheet' ist fehlgeschlagen

Wenn ich auf Debuggen geht, dann markiert er die Zeile Paste:

Public Sub DatenKopieren(wbProjekt As Workbook, iErstSp As Integer, iAnzSpalten As Integer, strProjekt As String)
Dim shQ As Worksheet
Dim shZ As Worksheet
Dim lgErstZeil As Long
Dim lgLetztZeil As Long
Dim rgFund As Range
Dim x As Long

Set shQ = ThisWorkbook.Sheets("Datenbasis")
Set shZ = wbProjekt.Sheets("Daten")

With shZ
If .UsedRange.Rows.Count > 1 Then
.Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).Delete
End If
End With

With shQ
Set rgFund = .Columns(iErstSp).Find(what:=strProjekt, LookIn:=xlValues, lookat:=xlWhole)
lgErstZeil = rgFund.Row

lgLetztZeil = lgErstZeil

Do While .Cells(lgLetztZeil + 1, iErstSp) = rgFund
lgLetztZeil = lgLetztZeil + 1
Loop

.Range(.Cells(lgErstZeil, iErstSp), .Cells(lgLetztZeil, iAnzSpalten)).Copy
End With

With shZ
.Cells(2, 1).Select
.Paste
.Cells(1, 1).Select
End With

wbProjekt.Close True
End Sub


Ich habe aber keine Ahnung warum, da der Code bis vor 8 Wochen noch lief. Kann jemand helfen? Oder werden mehr Angaben benötigt? Excel läuft in Version 2016

Gruß Harry

:)

 

Na, in 2 Foren mit derselben Frage unterwegs?

 

Ja, sorry, hatte es da gepostet, sah aber irgendwie kryptisch aus und konnte es nicht mehr ändern oder löschen, daher habe ich es hier nochmal reingesetzt,

 

Im Grunde kein Ding - könntest aber fairerweise die Foren entsprechend informieren.... noch besser: gegenseitig verlinken

Hintergrund:
Crossposting | Excel ist sexy!

 

Mea culpa

Hast du denn eine Idee?

 

Ohne den Rest des Programms zu hinterfragen; versuche mal:

Code:

 

Hat leider nicht funktioniert.

Welche Informationen werden noch benötigt?

 

Ein Beispielfile.

 

Hallo,

angehängt die Datei, die die "Daten" sammelt. Aufgrund derer sollen nun für jedes Projekt nach der Vorlage eigene einzelne Dateien erstellt werden.
Leider kann ich die Vorlage aufgrund der Größe nicht hochladen.

 

Wenn Du in dieser Datei noch ein Arbeitsblatt mit dem Namen "Daten" erstellst (Objektvariable: shZ) und den Code aus #6, dann funktioniert es. Zumindest bei mir.

 

Ich bekomme immer noch den gleichen Fehler. Kannst du mir die geänderte Datei von dir mal senden?

 

Natürlich ...

 

Danke.

Wenn ich es dann ausführen möchte, gibt mir VBA:
Fehler beim Kompilieren: Syntaxfehler

 

Stimmt; wenngleich merkwürdig:

Finde und andere diese Zeile:
Code:

Wie folgt ab:
Code:

Hinweis:
Es genügt eigentlich vor Application .... einmal die Entertaste zu drücken.

 

Dann habe ich Laufzeitfehler 1004
Die Copy-Methode des Range-Objektes konnte nicht ausgeführt werden.

Komisch