Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CSV Datei richtig importieren

CSV Datei richtig importieren
28.11.2018 12:02:12
Peter
Hallo Zusammen,
eine CSV Datei wird mit einem Makro in eine Excel tabelle importiert.
Leider werden die Werte in den Spalten C / D / E nicht als Zahlenwert eingetragen.
Mit einen anderen Makro möchte ich die Werte in einen Zahlenwert formatieren.
Mit der Funktion Suche und Ersetzen geht dies. Ich habe die mit dem Makrorekorder aufgenommen.
Nach dem ich dies Makro gestartet habe werden die Werte nicht um formatiert.
Vieleicht kann einer mal drüber schauen und mir hier helfen.
1. Zeil Datei
https://www.herber.de/bbs/user/125716.xlsm
2. Quelle
https://www.herber.de/bbs/user/125717.txt
Vielen Dank
Peter (hpo)

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV Datei richtig importieren
28.11.2018 12:57:35
Daniel
Hi
das Problem ist dass Excel und VBA oft englisch miteinander Reden, während Excel mit dem Anwender an gleicher Stelle Landessprache spricht.
Das führt dann dazu, dass der Recordercode dann nicht passt.
wenn du beispielsweise eine als Text formatierte Zahl in eine echte Zahl wandeln willst und dass mit der Funktion ersetzen machen willst, dann musst du bedenken, dass Excel einen Wert, der von VBA kommt nur dann als Zahl interpretiert wird, wenn dieser im Amerikantischen Format geschrieben ist, dh mit Punkt als Dezimalzeichen.
dh du musst beim REPLACE in VBA das Komma durch einen Punkt ersetzen, während du beim ERSETZEN von Hand das Komma durch ein Komma ersetzt.
Gruß Daniel
Anzeige
AW: CSV Datei richtig importieren
28.11.2018 14:01:19
Peter
Hallo Daniel,
vielen Dankt für Deine Rückmeldung.
Weis Du vieleicht eine andere Funktion, mit der ich die Textwerte in Zahlenwerte ändere?
Probiert habe ich auch bereits folgendes: Textwert * 1 dies funktioniert auch soweit.
Dies habe ich mit einer Schleife durch alle Cellen gemacht. Dauert aber seher lange bei ca. 3000 Celllen.
Viele Grüße
Peter (hpo)
TextZahlen in Zahlen umwandeln
28.11.2018 18:30:06
Daniel
Hi
das geht auch einfacher:
1. leere Zelle kopieren
2. in den umzuwandelnden Zellen den Wert einfügen mit der Einstellung: Vorgang=Addieren.
in VBA: 
Cells.SpecialCells(xlcelltypelastcell).Offset(0, 1).Copy
Range(...).PasteSpecial xlpastevalues, Operation:=xladd
aber auch hier gilt:
wenn du das von Hand machst, werden Texte mit Dezimal-Komma in Zahlen gewandelt.
wenn du das von VBA ausführen lässt, werden Texte mit Dezimal-Punkt in Zahlen gewandelt.
Gruß Daniel
Anzeige
AW: CSV Datei richtig importieren
28.11.2018 15:36:59
PeterK
Hallo
Da Du die Daten im englischen Format hast, kannst Du Excel auch einmal kurzfristig umschalten. Da dies aber nur für den ersten Aufruf gilt (d.h. beim aktualisieren der Query wären wieder die "normalen" Trennzeichen gültig) lösche ich die Query (Vorsicht: ich lösche ALLE)

Sub Test()
ActiveWorkbook.Worksheets.Add
Application.UseSystemSeparators = False
Application.ThousandsSeparator = ","
Application.DecimalSeparator = "."
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\Documents\Herber\125717.txt", _
Destination:=Range("$A$1"))
.Name = "125717.txt"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = False
.RefreshOnFileOpen = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Dim qt As QueryTable
For Each qt In ActiveSheet.QueryTables
If qt.Refreshing Then qt.CancelRefresh
qt.Delete
Next
Application.ThousandsSeparator = "."
Application.DecimalSeparator = ","
Application.UseSystemSeparators = True
Columns("A:A").Delete Shift:=xlToLeft
End Sub

Anzeige
AW: CSV Datei richtig importieren
28.11.2018 16:16:21
Peter
Hallo PeterK
Vielen Dank macht genau das was ich möchte.
Super ;)
Viele Grüße
Peter (Ihpo)
AW: CSV Datei richtig importieren
28.11.2018 18:43:34
Daniel
Hi
dazu muss man aber nicht ins System eingreifen.
man kann das auch beschränkt für den Import tun, um hierfür die Werte richtig zu importieren.
von Hand geht das im Schritt 3 des Assistenten unter WEITERE
im Makro dann mit diesen beiden Optionen, welche vom Recorder nur dann aufgezeichnet werden, wenn man sie abweichen von der Landestypischen Schreibweise abändert: 

With AciveSheet.QueryTables.Add(...)
.Name = ...
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
End With

Gruß Daniel
Anzeige
AW: CSV Datei richtig importieren
29.11.2018 11:24:28
Peter
Hallo Günter, hallo Daniel
Vielen Dank für Eure Beiträge.
Komme mit der Lösung von PeterK sehr gut zurecht.
Nochmals vielen Dank und viele Grüße
Peter (hpo)

304 Forumthreads zu ähnlichen Themen

Makro zum .CSV Daten Import
Hugo

Hallo,
viele .CSV Daten müssen in Excel importiert werden. Ein funktionierendes Makro würde die Sache für immer sehr erleichtern. Kann man das Folgende mit einem Makro lösen?
Folgende Attribute gelten für den Datei Import:


Datenformat der Spalten ist Standard
-Start in...
17.08.2008 12:48:56
Thread-ID: 1002397
10 Beiträge
Anzeige
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Makro .CSV importieren/Exportieren
Hugo

Hallo,
muß eine .CSV Datei kommagetrennt in Spalten importieren.
Dann nach dem Bearbeiten wieder in eine .CSV Datei exportieren.
Benötigt wohl ein Makro.
Danke.
https://www.herber.de/bbs/user/60798.xls
29.03.2009 22:48:27
Thread-ID: 1065136
15 Beiträge
Anzeige
Daten aus csv in Tabelle
Daniel

Hallo zusammen,
mein Problem besteht darin, ich möchte aus einem festen Speicherort (z.B. C:/) 9 csv Dateien (gleicher Aufbau und immer gleich benannt) in eine bestehende Excel Datei (Auswertung.xls), in ein bestehendes Tabellenblatt (Menge) in die Spalten B - Inhalt der csv Datei 1, in Spa...
26.06.2009 07:48:35
Thread-ID: 1084276
2 Beiträge
CSV-Datei gesplittet in Excel importieren
Lennart

Hallo zusammen,
ich bin auf ein (für mich ;-)) größeres Problem gestoßen und konnte dies auch nicht durch Googeln etc. lösen. Folgendes: Ich exportiere aus einem Programm eine Liste mit Namen als CSV-Datei. Diese Namen stehen komplett in einer Spalte. Wenn ich nun meine Excel-Datei mit dies...
06.07.2009 23:23:38
Thread-ID: 1086804
7 Beiträge
VBA Probelm bei Datei einlesen und kopieren
Roland

Moin,
ich ahbe mal wieder ein VBA Problem.
Ich möchte eine Datei öffnen, die Daten daraus in eine andere Datei(Tabellenblatt) kopieren.
Jetzt meldet Excel mir:
Laufzeitfelher '1004': Für diese Aktion müssen alle verbundene Zellen dieselbe Grö0ße haben.
War eigentlich der Mei...
02.02.2010 10:57:34
Thread-ID: 1134995
2 Beiträge
csv - Datei einlesen
Karen

Hallo Forum,
ich möchte gerne in eine Excel Datei Daten per VBA Copy & Paste aus einer *csv Datei einlesen. Leider wandelt er die Zahlen in einen geschriebenen Test um.
Hat jemand einen Tip für mich, wie die Zahlen korrekt eingelesen werden?
Grüße
Karen
23.03.2010 09:02:24
Thread-ID: 1147748
6 Beiträge
CSV-Dateien mit VBA einlesen
Stefan741

Hallo VBA-Freunde,
gestern habe ich fast den ganzen Tag gesucht und ausprobiert, aber keine Lösung für meine Problemstellung gefunden (bzw. war ich nicht in der Lage, eine vorhandene Lösung umzubauen, dass sie lief):
In einem Verzeichnis stehen viele CSV-Dateien. Die Daten sind mit Komm...
24.03.2010 08:00:54
Thread-ID: 1148031
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
6
4
14
3
1
6
1
5
1
7
1
3
3
4
2
6
1
6
5
2
2
13
7
4