Kopieren- Laufzeitfehler 9
22.01.2022 11:33:11
André
Ich starte ein Makro in einer Exceldatei und möchte aus dem vba makro eine neue Exceldatei öffnen, um von dort mir spezielle Werte zu kopieren.
Mein Code funktioniert bis zum Aufrufen der alten Excel. Bei Auswählen des Tabs, erhalte ich dann jedoch eine Fehlermeldung, siehe Kommentar.
Hat jemand eine Idee, woran das liegen kann?
Sub Test_()
Exceldatei_import = ActiveWorkbook.Name 'Name aktuelle Exceldatei= Zieldatei (=Excel Import)
Dateien = Application.GetOpenFilename 'Öffnet die neue Exceldatei = Export_export
Set Exceldatei_export = Workbooks.Open(Dateien, local:=True) ' setzt dei neue Excel-Datei
Exceldatei_export = ActiveWorkbook.Name
Zeilenzahl = Range("D1").CurrentRegion.Rows.Count ' Zählt die Zeilen
Range("D2:M" & Zeilenzahl).Select ' Markiert aus Exel_export alle Zeilen ab Eintrag xx
Selection.Copy 'Kopiert alle markierten Werte
Set Exceldatei_import = ActiveWorkbook ' Setzt Excel_import als aktuelles Workbook
Sheets("Seite2").Active ' Setzt den Tab aktiv FEHLER____Laufzeitfehler 9
Range("A2:J" & Zeilenzahl).Select 'Wählt in dem Tab die Zeilen aus
ActiveSheet.Paste ' Kopiert die Zeilen hinein
Set Exceldatei_export = ActiveWorkbook ' Setzt Excel_export als aktives Workbook
ActiveWorkbook.Close True ' schließt das aktuelle Workbook FEHLER______schließt das falsche Excelfenster!
Set Exceldatei_import = ActiveWorkbook ' Setzt Excel_import wieder als aktives Workbook
End Sub