Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Teilen

Forumthread: Teilen

Teilen
Ron
Hallo Allerseits
Ich denke schon hundertmal gefragt aber ich finde es nicht, darum meine Frage
Wie kann ich den folgenden Wert nach dem Zeichen \ trennen?
Zahlungsverkehr\system\Scanning_Kudo\RE11A\KVA3107\(A)--Erkennung Dokumente\1 Prio1-Formulare\074_Folgeblatt Basisvertrag für natürliche Personen\1_ScanPF\Digitalisierung dok.pf-Version
Vielen Dank für einen Tipp.
Gruss
Ron
Anzeige
Daten-Text in Spalten owT
17.05.2011 13:31:40
Rudi
AW: Daten-Text in Spalten owT
17.05.2011 14:25:28
Ron
Hallo Rudi
Sorry habe noch etwas entscheidendes vergessen.
Es sollte via VBA Code gemacht werden.
Gruss und Danke
Ron
var=Split(Text, "\") owT
17.05.2011 14:33:13
Rudi
Anzeige
AW: Daten-Text in Spalten owT
17.05.2011 14:50:34
oberschlumpf
Hi Rudi
Und wie bekommt er die Werte aus var wohin auch immer er sie haben will? :-)
Ich glaube, bei "VBA mit Rec..." wird er LBound + UBound noch nicht kennen.
Ciao
Thorsten
AW: Daten-Text in Spalten owT
17.05.2011 15:18:48
Rudi
Hallo Thorsten
Vielen Dank für einen Tipp.

und den hab ich ihm gegeben ;-)
Gruß
Rudi
Anzeige
AW: Daten-Text in Spalten owT
17.05.2011 17:10:55
Ron
Hallo Allerseits
Die Annahme ist richtig. LBound + UBound kenne ich nicht.
Vielleicht hilft ein kleines Beispiel mir auf die Sprünge?
Danke und Gruss
Ron
AW: Daten-Text in Spalten owT
17.05.2011 17:28:33
Oberschlumpf
Hi Ron
Versuch mal diesen Code (kommt ins allgemeine Modul):

Dim var() as String, liIdx as Integer
var=Split("Text", "\") 'für Text musst du den Text eintragen, in dem die vielen \ vorkommen.
For liIdx = 0 To UBound(var)
Range("A" & liIdx + 1).Value = var(liIdx)
Next
Dieses Bsp schreibt alle von \ getrennten Werte in Spalte A, beginnend in Zeile 1.
Zu LBound + UBound findest du Infos in der Excel-Hilfe.
Nun verstanden?
Ciao
Thorsten
Anzeige
AW: Daten-Text in Spalten owT
17.05.2011 18:41:01
Ron
Hi Thorsten
Wunderbar.
Dein Tipp hat mir geholfen und ich konnte es so zusammenbauen, dass es auch nach Wunsch funktioniert.
Danke und Gruss
Ron
ohne LBound/ UBound/ Schleife
17.05.2011 20:36:08
Uduuh
Hallo Thorsten,
besser so:
Sub ttt()
Dim var() As String
var = Split("a\b\c\d\e\f", "\")
Range("A1").Resize(Application.CountA(var)) _
= WorksheetFunction.Transpose(var)
End Sub

;-)
Gruß
Rudi
Anzeige
AW: ohne LBound/ UBound/ Schleife
18.05.2011 09:56:40
Oberschlumpf
Hi Rudi
Danke. Diese Möglichkeit kannte ich noch nich. Wieder was gelernt :-)
Ciao
Thorsten
AW: Teilen
17.05.2011 14:10:08
ing.grohn
Hallo Ron,
vielleicht hilft:
Excelformeln
Textfunktionen (2)
komplette Pfadangabe / Teilpfad / Ordnername / Dateiname / Blattname (95)
Mit freundlichen Grüßen
Albrecht
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18