Kommas in Anführungszeichen ignorieren
27.10.2022 11:16:29
JanVBAnoob
Lerne jetzt seit 1-2 Monaten langsam mit VBA Makros zu schreiben. Ich versuche einen automatischen Import zu Programmieren.
Soweit klappt ja auch fast alles.
Problem: Ich habe eine Zeichenfolge welche Kommas als Trennzeichen benutzt. Jedoch sollen Kommas welche zwischen Anführungszeichen stehen nicht als Trennzeichen angesehen werden.
Beispiel:
Soll aufgetrennt werden:
1,23,596,"2,5Bäume",5,5899
Ergebnis(Falsch):
1 | 23 | 596 | "2 | 5Bäume" | 5 | 5899
Soll Ergebnis:
1 | 23 | 596 | "2,5Bäume" | 5 | 5899
Eine Formel zum auftrennen:
Function XTPCK(Name)
Parts = Split(Name, ",")
Lengh = ArrayLen(Parts)
XTPCK = Parts(Lengh - (Lengh - 6))
End Function
Public Function ArrayLen(arr As Variant) As Integer
ArrayLen = UBound(arr) - LBound(arr) + 1
End Function
Danke!