Bereich aus anderer Datei einfügen
11.09.2013 09:05:34
Manuela
ich habe ein kleines Problemchen und kann es leider nicht lösen.
In meinem Makro wird eine Datei geöffnet und ein Bereich kopiert. Danach wird diese Datei wieder beendet und dann soll das kopierte in meine Datei eingefügt werden, aber ich bekomme immer einen "Laufzeitfehler 1004: Die PaseSpecial-Methode des Range-Objekts konnte nicht ausgeführt werden."
Meine erste Idee war, dass meine Zwischenablage leer ist, aber dies ist nicht so.
Ich hoffe Ihr habt einen Tipp für mich :-)
Mein Makro:
Sub Datenimp()
Dim AnzahlDaten As Double
Dim Pfad As String
Dim rCount As Double
Dim AktDatei As String
Ausgabe.Cells.Delete Shift:=xlUp
AnzahlDaten = Dateiliste.Range("A8")
Pfad = Dateiliste.Range("A2")
rCount = 1
For i = 1 To AnzahlDaten
AktDatei = Dateiliste.Cells(rCount, 2)
Workbooks.Open Filename:=Pfad & AktDatei
Worksheets("liste").Range("A2:H" & Worksheets("liste").Range("A2").End(xlDown).Row). _
Copy
Workbooks(AktDatei).Close False
'Problem:
If Ausgabe.Range("A1") = "" Then
Ausgabe.Range("A1").PasteSpecial Paste:=xlValues
Else
Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues
End If
rCount = rCount + 1
Next i
End Sub