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 |