Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String auftrennen

Forumthread: String auftrennen

String auftrennen
Ron
Hallo Excelspezis
Gerne möchte ich den String "Auftrag_001_005" wie folgt auftrennen:
Teil1 = Auftrag
Teil2 = 001
Teil3 = 005
Danke für eine Idee.
Gruss
Ron
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: String auftrennen
12.08.2009 10:31:35
Hajo_Zi
Hallo Ron,
=Links(a1;7)
=Teil(A1;9;3)
=Rehts(A1;3)
ich hoffe mal ich habe mich nicht verzählt.

AW: String auftrennen
12.08.2009 10:38:22
Ron
Hallo Hajo
Sorry ich habe mich nicht korrekt ausgedrückt.
Ich sollte eine VB-Lösung haben. Und die vorhandenen Werte können unterschiedlich lang sein. Das einzige Konstante sind die _Zeichen.
Danke
Gruss
Ron
Anzeige
Split()
12.08.2009 10:45:38
Erich
Hi Ron,
dafür gibt's die Funktion Split: 

Option Explicit
Sub aa()
Dim arrW ' as Variant
arrW = Split("Auftrag_001_005", "_")
MsgBox arrW(0) & " und " & arrW(1) & " und " & arrW(2)
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Split()
12.08.2009 11:21:29
Ron
Hallo Erich
Danke deine Version hat mir das Problem gelöst.
Gruss
Ron
AW: String auftrennen
12.08.2009 10:50:47
Rudi
Hallo, 
Sub ttt()
Dim x As String, x1 As String, x2 As String, x3 As String
x = Selection
x1 = Left(x, InStr(x, "_") - 1)
x2 = Mid(x, InStr(x, "_") + 1, InStrRev(x, "_") - InStr(x, "_") - 1)
x3 = Mid(x, InStrRev(x, "_") + 1, 99)
End Sub

Gruß
Rudi
Anzeige
AW: String auftrennen
12.08.2009 11:24:16
Ron
Hallo Rudi
Die Version von Erich hat mir das Problem gelöst. Deine Lösung habe ich mir aber ebenfalls notiert vor allem wegen den spez. Befehlen left, Mid, InStrRev, usw. Dies kann ich sicher auch mal nutzen
Danke und Gruss
Ron
;

Beliebteste Forumthreads (12 Monate)

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