Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
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
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige