daten nach csv
31.03.2021 08:49:46
Fred
ich möchte aus meiner Arbeitsmapper herraus, Daten in eine .csv Datei kopieren.
Mein Code:
Sub export_1()
Dim wbStart, wbZiel As Workbook
Set wbStart = ActiveWorkbook
Set wbZiel = Workbooks.Open("C:\Users\Desktop\Blog\\note_1.csv")
wbStart.Sheets("export").Range("F11:K110").Copy Destination:=wbZiel.Sheets("note_1").Range("A1") _
Application.CutCopyMode = False
wbZiel.Activate
ActiveWorkbook.Save
ActiveWorkbook.Close savechanges:=False
End Sub
funktioniert nicht wie gewünscht. Die Daten der zu kopierenden Zeilen werden je in 1 Zelle in die csv gesetzt.
Meine Frage;
Wie ändere ich entsprechend den Code?
Gruss
Fred
Anzeige