Hallo, ich habe ein Makro, welches den Inhalt eines Tabellenblattes (aus .xlsm-Datei (1)) kopiert, dann ein .CSV-Datei öffnet, die jeweiligen Zahlenwerte der kopierten Tabelle dort einfügt, die CSV speichert und schließt.
Das ganze funktioniert, wenn ich das Makro in Datei (1) aus einer anderen .xlsm-Datei (2) heraus starte (über Tastenkombi) und wenn ich das Makro in Datei (1) aus dieser .xlsm-Datei (1) manuell starte. Wenn ich den selben Code allerdings aus der .xlsm-Datei (1) über die Tastenkombi starte, stoppt das Makro nach der Öffnung der CSV-Datei (Das heißt, das Einfügen wird nicht mehr gemacht, eine Fehlermeldung gibt es nicht)
Sub Datenexport()
'
' Tastenkombination: Strg+Shift+D
ActiveWorkbook.Sheets("Tabelle1").Cells.Copy
Workbooks.Open Filename:=ThisWorkbook.Path & "\Datei.csv"
Windows("Datei.csv").Activate
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="Datei", FileFormat:=xlCSV, local:=True
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Vor der Zeile
"Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False"
wird der Code gestoppt.
Liebe Grüße
|