ici habe eine kleines Problemchen. Ich habe 2 Excel Tabellen. Die eine ist leer und die andere mit Inhalten gefüllt. Nun will ich mittels eines Makros Bereiche kopieren und in die leere Tabelle einfügen. ich erhalte aber immer die Fehlermeldung :"Laufzeitfehler 1004 - Anwendungs - oder obejektorientierter Fehler".
Hier der Quellcode:
Sub Berichtswesen()
Dim Pfadname As Variant
Dim Dateiname As Variant
Dim Stelle As Integer
Dim i As Integer
Pfadname = InputBox("Bitten geben sie den kompletten Pfad ein", , "Y:\xxx.xls")
Workbooks.Open Filename:=Pfadname ' Öffnet die Datei, die in der oberen Input Box eingegeben wurde.
For i = 1 To Len(Pfadname)
If Mid(Pfadname, i, 1) = "\" Then
Stelle = i 'Die letzte Stelle, wo ein \ steht.
End If
Next
Dateiname = Right(Pfadname, Len(Pfadname) - Stelle) ' Filtert den Dateinamen heraus.
Windows(Dateiname).Activate
Range("A12:G45").Select ' Fehlermeldung Laufzeitfehler 1004
Selection.Copy
Windows("yyy.xls").Activate
Cells("2:2").Select
ActiveSheet.Paste
End Sub
Ich hoffe Ihr könnt mir helfen.
Danke schonmal im Voraus.