Laufzeitfehler 1004
29.07.2015 14:04:48
Christian
ich habe unten stehenden Code geschrieben - grob gesagt kopiert mir der Code aus 2 Registern Daten in ein Register und macht einen Sverweis.
Mal von den select-Befehlen abgesehen, läuft mir das Makro auf Fehler 1004 "Anwendungs- oder Objektdefinierter Fehler" und zwar genau dann, wenn ich den Sverweis als Formula einfüge.
Vielen Dank und viele Grüße,
Christian
Sub April()
Dim wsQuelle1 As Worksheet
Dim wsQuelle2 As Worksheet
Dim wsZiel As Worksheet
Dim rowQ1 As Long
Dim rowQ2 As Long
Dim rowSepa As Long
Set wsQuelle1 = Sheets("Import April")
Set wsQuelle2 = Sheets("Import April IPK")
Set wsZiel = Sheets("April")
rowSepa = Worksheets("Import Sepa").Range("A1000000").End(xlUp).row
'Transformieren April
wsQuelle1.Select
rowQ1 = wsQuelle1.Range("A10000").End(xlUp).row
If Not rowQ1 = 1 Then
wsQuelle1.Range("A2:C" & rowQ1).Copy
wsZiel.Cells(2, 1).PasteSpecial xlPasteAll
wsQuelle1.Range("F2:H" & rowQ1).Copy
wsZiel.Cells(2, 4).PasteSpecial xlPasteAll
wsQuelle1.Range("K2:K" & rowQ1).Copy
wsZiel.Cells(2, 8).PasteSpecial xlPasteAll
wsQuelle1.Range("M2:P" & rowQ1).Copy
wsZiel.Cells(2, 9).PasteSpecial xlPasteAll
'Formel IBAN
wsZiel.Select
wsZiel.Cells(2, 7).Formula = "=if(isna(vlookup(a2,'Import Sepa'!$A$2:$e$" & rowSepa & ", _
5,false)),"" "",vlookup(a2,'Import Sepa'!$A$2:$e$" & rowSepa & ",5,false)))"
wsZiel.Range("g2:g" & rowQ1).FillDown
wsZiel.Range("g2:g" & rowQ1).Copy
wsZiel.Cells(2, 7).PasteSpecial xlPasteValues
End If
'Transformieren April IPK
wsQuelle2.Select
rowQ2 = wsQuelle2.Range("A10000").End(xlUp).row
If Not rowQ2 = 1 Then
wsQuelle1.Range("A2:C" & rowQ2).Copy
wsZiel.Cells(rowQ1 + 2, 1).PasteSpecial xlPasteAll
wsQuelle1.Range("F2:H" & rowQ2).Copy
wsZiel.Cells(rowQ1 + 2, 4).PasteSpecial xlPasteAll
wsQuelle1.Range("J2:K" & rowQ2).Copy
wsZiel.Cells(rowQ1 + 2, 7).PasteSpecial xlPasteAll
wsQuelle1.Range("M2:P" & rowQ2).Copy
wsZiel.Cells(rowQ1 + 2, 9).PasteSpecial xlPasteAll
End If
wsZiel.Select
wsZiel.Range("A1").Select
End Sub