Hallo zusammen,
ich habe ein Problem und bin langsam am Verzewiefeln. Bisher hat mein Makro immer wunderbar funktioniert. Seit paar Tagen bekomme ich jedoch immer bei dem Befehl "ActiveSheet.Paste die Fehlermeldung "Laufzeitfehler 1004: Die Paste-Methode des Worksheet-Objektes konnte nicht ausgeführt werden."
Bei meinen Kollegen läuft das Makro einwandfrei durch. Hat jemand eine Idee, woran das liegen könnte?
Danke und Gruß
Ani
Code:
Sub DatenKopieren()
Dim Pfad As String
Dim urdatei
Set urdatei = Worksheets(ActiveSheet.Index)
Application.DisplayAlerts = False
Pfad = Sheets(1).Range("V48")
Workbooks.Open Pfad & "\" & Sheets(1).Range("V49"), Local:=True
Sheets(1).Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.Close
Sheets("Tabelle1").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
|