VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Harry	Datum: 11.05.2020 06:45:59	Views: 832	Rating:	Antwort:
Thema: 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 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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen