Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1532to1536
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
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Delimiter von & tatsächliche Kommata in CSV-Datei

Delimiter von & tatsächliche Kommata in CSV-Datei
09.01.2017 16:36:38
&
Hallo Forum,
ich habe folgende Herausforderung:
In einer CSV-Datei gibt es neben den Delimitern (, oder ;)auch Texteinschlusszeichen(""). ich benötige einen Code, der es ermöglicht die Delimiter von den verwendeten Kommata oder Semikolons innerhalb der Texteinschlüsse zu unterscheiden.
Mein Plan ist es, dass das Skript jeweils die Zeile/den String durchläuft und nacheinander die Anzahl der Delimiter und der Texteinschlusszeichen zählt. Immer wenn die Anzahl der Texteinschlusseinzeichen gerade ist, ist ein darauf folgendes Komma, Semikolon ein Delimiter - wenn die derzeitige Anzahl der Texteinschlusszeichen ungerade ist, ist das folgende Komma oder Semikolon kein Delimiter, sondern Bestandteil des Textes.
Bspw.
1,12,"Hund,Katze,Maus",15,"Fahrrad;",13
Danke für euren Support!!!!

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Delimiter von & tatsächliche Kommata in CSV-Datei
09.01.2017 17:32:03
&
Hi,
meinst Du so: 
Option Explicit
Sub deli()
Dim sI$, sO$, Z$, i&, j&, a, tA&
Const d = ",;", t = """", ers = "|" ' altGr und größer/kleiner
sI = Range("A1").Text ' da steht das: 1,12,"Hund,Katze,Maus",15,"Fahrrad;",13
For i = 1 To Len(sI)
Z = Mid(sI, i, 1)
If InStr(d, Z) = 0 Then
If Z = t Then tA = tA + 1
sO = sO & Z
Else
If (tA And 1)  1 Then
sO = sO & ers
Else
sO = sO & Z
End If
End If
Next
Range("A2").Value = sO
a = Split(sO, "|")
For i = 0 To UBound(a): Range("A3").Offset(i) = a(i): Next
End Sub

Ausgabe:
1,12,"Hund,Katze,Maus",15,"Fahrrad;",13
1|12|"Hund,Katze,Maus"|15|"Fahrrad;"|13
1
12
"Hund,Katze,Maus"
15
"Fahrrad;"
13
Schöne Grüße,
Michael
Anzeige
AW: warum dafür einen Code? ...
09.01.2017 17:37:07
...
Hallo Thomas,
... die Excelfunktion "Text in Spalten" und da mit der Option "getrennt" und Wahl des entsprechenden Trennzeichens (in Deinem Beispiel das Komma) ist doch schon so programmiert, dass sie die Trennung das korrekt bzw. wie von Dir gewünscht, ausführt.
Gruß Werner
.. , - ...
AW: warum dafür einen Code? ...
09.01.2017 19:17:04
Michael
Hi Werner,
hat sich irgendwie so angehört, als wollte Thomas das nicht verwenden...
Naja, war ne kleine "Fingerübung" zum Aufwachen.
Gruß,
Michael
AW: dazu ...
09.01.2017 19:51:35
...
Hallo Michael,
... als ich angefangen hatte, mich mit der Fragestellung auseinanderzusetzen, war Dein Beitrag noch nicht zu lesen. Sehr wahrscheinlich hätte ich mich dann überhaupt nicht weiter damit beschäftigt und ich hätte somit diese auch für mich neue Erkenntnis gar nicht machen können.
Gruß Werner
.. , - ...
Anzeige
AW: dann Frage an Thomas ...
09.01.2017 20:14:05
...
Hallo Thomas,
... hast Du Deine ursprüngliche Frage nochmal als einen neuen thread aufgemacht, oder? Wenn ja, warum? Wenn nein, mit welchen Browser auf welchen PC und welchem Betriebssystem arbeitest Du?
Gruß Werner
.. , - ...
na da schau her,
09.01.2017 20:18:42
Michael
Werner & Daniel,
den Doppelpost hatte ich gar nicht mitbekommen...
Und Thomas scheint's die Antworten nicht.
Na, ich wünsche trotzdem ne gute Zeit, ich Moufort (der fränkische Käse, der schnell wäch mou, dasser ned läffd),
Michael
Anzeige
AW: na da schau her,
09.01.2017 21:09:37
Daniel
Ich hab irdenwie den Verdacht, dass die seiten so programmiert sind, dass der Absendeprozess auch dann ausgelöst wird, wenn man sich mal irgenwie durch die Browserhistorie klickt.
Gruß Daniel
AW: na da schau her,
09.01.2017 21:09:37
Daniel
Ich hab irdenwie den Verdacht, dass die seiten so programmiert sind, dass der Absendeprozess auch dann ausgelöst wird, wenn man sich mal irgenwie durch die Browserhistorie klickt.
Gruß Daniel

299 Forumthreads zu ähnlichen Themen

Gefilterte Dateien in txt exportieren
Gerhard

Namd zusammen
Gibt es eine Möglichkeit ausschliesslich gefilterte Dateien in eine txt Datei zu speichern?
Habe eine grosse Tabelle aus der ich nur einzelne Spalten (andere Spalten sind via VBA ausgeblendet) benötige und aus diesen noch sichtbaren Spalten via Autofilter nochmals eingren...
18.08.2008 21:35:19
Thread-ID: 1002746
4 Beiträge
Anzeige
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Chaos in csv Datei lichten
Sabine

Hallo zusammen,
habe folgendes Problem: Speichere meine Online Kontoauszüge als csv Datei. Habe nun beim letzen Monat irgendeinen Fehler beim Speichern gemacht, so dass die Daten nicht ordentlich in Spalten angeordnet sind sondern alles in einer Zeile, Beispiel: 60;"EUR";"Max Mustermann";""...
07.10.2008 11:32:00
Thread-ID: 1014665
3 Beiträge
Anzeige
Als csv automatisiert speichern
Herbert

Hallo,
noch eine Frage zur Speicherung eines Excel-Sheets in eine neue Datei.
Die Ausgangsdatei hat eine Registerkarte. Der Inhalt dieser Registerkarte soll im Pfad C:\temp\sicherung als .csv-Datei abgelegt werden. Der Dateiname soll "Saldierung_aktuelles Datum.csv" sein.
Leider wir...
20.11.2008 12:02:00
Thread-ID: 1026369
2 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Dropdown-Feld über Txt-Datei/Ini-Datei füllen
Till

Hallo Leute,
mit folgendem String:


    With ComboBox2
        .ColumnCount = 2
        .ColumnWidths = "170pt;0pt"
    &...
02.12.2008 09:43:00
Thread-ID: 1029413
12 Beiträge
Arbeitsblätter in eine .csv-Datei abspeichern
Dylan666

Hallo,
ich moechte mehrere Arbeitsblaetter einer Excel-Datei gleichzeitig abspeichern als tapstopp-getrenntes .txt, als kommasepariertes .csv-Format oder als neue .xls-Datei (mit nur einer Arbeitsmappe). Dabei sollen nur befuellte Zeilen gespeichert werden. Weiss jemand eine schnelle Method...
14.01.2009 10:18:37
Thread-ID: 1039496
2 Beiträge
TextBox Komma in Punkt umwandeln
Heinz

Hallo Leute
Wie kann ich bitte,wenn in Textbox6 ein Komma eingegeben wird, das es automatisch auf Punkt wechselt ?
Gruß
Heinz
28.01.2009 17:42:00
Thread-ID: 1044650
3 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
3
4
5
2
1
1
3
11
1
2
7
3
2
6
14
1
3
1
3
15
4
2
2
3
5