Hallo zusammen
Ich möchte an dieser stelle mal keine Frage stellen sondern eine Lösung nennen.
Ich habe vor einiger Zeit das Problem gehabt CSV-Dateien einzulesen.
Aufgrund der Ländercode-Einstellung gibt es da manchmal Probleme mit dem richtigen Umgang bei Punkt und Komma.
Eine richtige Lösung konnte ich dazu in der Recherche und auf der Exel-CD nicht finden.
Ich habe es wie in dem folgenden Code gelöst und es funktioniert sehr gut.
Viel Spaß
Gruß Kersten
Dim sFile As String, sTxt As String
Dim iRow As Integer, iCol As Integer
Dim wkb As Workbook
Set wkb = ThisWorkbook
sFile = Application.GetOpenFilename("Excel-Dateien, *.csv", , "Bitte Datei auswählen")
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
iRow = 1
iCol = 1
Close
Open sFile For Input As #1
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Testtabelle"
ActiveSheet.Move after:=wkb.Worksheets(wkb.Worksheets.Count)
Do Until EOF(1)
Line Input #1, sTxt
Do While InStr(sTxt, ";")
Cells(iRow, iCol).Value = Replace(Left(sTxt, InStr(sTxt, ";") - 1), ",", ".")
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";"))
iCol = iCol + 1
Loop
Cells(iRow, iCol).Value = Replace(sTxt, ",", ".")
iRow = iRow + 1
iCol = 1
Loop
Close