Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CSV einlesen "." und "," Lösung

CSV einlesen "." und "," Lösung
25.11.2005 11:02:51
Kersten
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV einlesen "." und "," Lösung
28.11.2005 02:11:01
Hofer
kleiner Hinweis:
ich hatte ein ähnliches Problem in diesem Forum gepostet. Habe es damals so gelöst, dass ich den Wert nicht als Value sondern als FormulaLocal übergeben habe - ist einfach und klappt bei mir hervorragend.
Gruß
MHofer
AW: CSV einlesen "." und "," Lösung
29.11.2005 17:55:40
Pit
Hallo Kersten,
bin leider VBA-Anfänger, daher klappt es nicht so recht. Wie bindest Du denn diesen Code ein? Ich weiß leider gar nicht, wie Du die Sache startest. Ich habe es in VB reinkopiert und auf start geklickt. Doch ich kann keine Anwendung finden. Kannst Du ein paar Worte dazu schreiben?
Danke Pit
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige