Kopie csv-Datei in Excel-Tabelle - falsche Daten-Trennung
29.06.2024 16:09:49
Hilbman
Folgender Makro funktioniert problemlos - es werden prinzipiell alle Daten kopiert und in die Tabelle HD eingetragen.
Private Sub cbo_csv2_Click() ' Kombinationsfeld mit mehreren csv- Dateien zu Auswahl
Dim xx As Worksheet, yy As Worksheet
Dim Datnam As String
Dim verz As String
Set yy = Worksheets("HD")
Datnam = cbo_csv2.Text
Debug.Print Datnam
verz = "C:\Users\Manfred\Berechnungen"
'Öffnen der gewählten Datei und kopieren
Application.Workbooks.Open Filename:=verz & "\" & Datnam, Delimiter:=";"
Windows(Datnam).Activate
Rows("1:200000").Select 'csv-Dateien mit mehr als 100000 Zeilen
Selection.Copy
'Aktivieren der Tabelle "HD" und einfügen
Windows("EXPORT_Analyse.xlsm").Activate
yy.Activate
yy.Rows("1:1").Select
ActiveSheet.Paste
End SubDas Problem ist nun, dass die Daten falsch getrennt werden. Komma-Zahlen werden getrennt. Der gewünschte Delimiter = Semikolon wird in den Zellen angezeigt.
Die Angabe Delimiter:=";" in der workbook.open-Anweisung hat keine Auswirkung. Führt aber auch nicht zu einem Fehler beim Ablauf des Makros. Eine andere Stelle habe ich jetzt nicht gefunden.
Wo muß die Angabe des Delimiters erfolgen ?
Anzeige