String zerlegen

Hallo Excel-Profis,
ich habe ein kleines Problem beim zerlegen eines Strings.
Bin gerade daran mir eine kleine (Private)Verwaltung zu programmieren.
Ich habe ein einem Excel Sheet Zellen mit variablem Inhalt, der aber in der Art immer gleich ist.
Also im Prinzip ist die Zelle je Zeile folgend beschrieben:
G1
1-234-56-78-901 Auftrag-Text
3-456-78-90-123 Auftrag-Text
.
.
2-345-67-89-012 Auftrag-Text
Es können in einer Zelle eine Unterschiedliche Anzahl von Zeilen vorkommen.
Diese Zeile lese ich von einem anderen Dokument ein, wo diese schon so in nur einer Zelle stehen.
Die Bestellnummern/Materialnummern sind immer gleich aufgebaut (?-?-?-?-?).
Ich möchte nun diesen String so zerlegen, das ich jeweils nur die Bestellnummern und den Aftrags-Text in einem separaten String habe. Diese String's sollen später in Word übergeben werden und dort in ein Dokument (per Bookmarks) eingefügt werden.
Das funktioniert schon im Prinzip.
Es wäre mir erst einmal egal, ob nachher 2 Strings oder 2 Array[1..x] mit den "getrennten" Bestellnummern und Auftrag-Texte angelegt würden.
quasi:
strNummer ="1-234-56-78-901(LF)3-456-78-90-123(LF)2-345-67-89-012"
strText ="Auftrag-Text(LF)Auftrag-Text(LF)Auftrag-Text"
oder
strNummer[1]="1-234-56-78-901"
strNummer[2]="3-456-78-90-123"
strNummer[3]="2-345-67-89-012"
strText[1] ="Auftrag-Text"
strText[2] ="Auftrag-Text"
strText[3] ="Auftrag-Text"
Ich habe gerade keinen Plan wie ich da vorgehen kann?
Habe schon versucht mit


strMaterialnummer = Worksheets(1).Range("G" & gefunden_zeile)
strSuch_Materialnummer = "?-?-?-?-?"
iPosition = InStr(10, strMaterialnummer, strSuch_Materialnummer, 0)

die Position des ersten Vorkommens der Nummer zu ermitteln und dann diese heraus zu kopieren und so weiter(Schleife bis Ende des Strings), aber das mit den Wildcards funktioniert irgendwie nicht!
Kann mir hier jemand helfen, bin leider in VBA (noch) nicht so der Crack!
Thx Matthias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub trennen() Dim strNr As String, strText As String Dim varTmp As Variant Dim lngI As Long With Sheets("Tabelle1") 'tabellennname - Anpassen! varTmp = Split(.Range("G1").Text, vbLf) For lngI = 0 To UBound(varTmp) strNr = strNr & Split(varTmp(lngI), " ")(0) & vbLf strText = strText & Split(varTmp(lngI), " ")(1) & vbLf Next End With strNr = Left(strNr, Len(strNr) - 1) strText = Left(strText, Len(strText) - 1) MsgBox strNr & vbLf & strText End Sub

Sub trennen() Dim strNr As String, strText As String Dim varTmp As Variant Dim lngI As Long With Sheets("Tabelle1") 'tabellennname - Anpassen! varTmp = Split(.Range("G1").Text, vbLf) For lngI = 0 To UBound(varTmp) strNr = strNr & Trim(Left(varTmp(lngI), 15) & vbLf) strText = strText & Trim(Mid(varTmp(lngI), 16)) & vbLf Next End With strNr = Left(strNr, Len(strNr) - 1) strText = Left(strText, Len(strText) - 1) MsgBox strNr & vbLf & strText End Sub

Hi Sepp,
danke Dir für diesen Schnellen Tipp und den Code!
Habe es mal so auf die Schnelle versucht und das hilft mir für den Anfang schon einmal weiter!
Das mit dem vbLf war mir (noch) nicht so bekannt, hoffte aber das es so etwas wie in Pascal früher gab ;)
Gibt es da eigentlich auch etwas wie EOS (also end of string) mit ist das mit dem UBound noch nicht so klar ... Habe zwar die Erklärung bei MS gelesen, aber so richtig verstehe ich das nicht.
Muss ich mich aber da nochmals hinein knien (VBA mache ich nur so nebenbei etwas, sonst gerade am C# lernen, aber im alter dauerts länger)!
Hätte da noch eine weitere Frage,
da mir ja beim Aufruf meiner SUB nicht bekannt ist, wie viele Zeilen es gibt bei dem extrahieren, könnte ich wenn ich die Nummer und den Text in ein Array kopieren möchte, dies Dynamisch während der Laufzeit erzeugen? Oder gibt es eine Möglichkeit herraus zu finden mit wie vielen Zeilen eine Zelle gefüllt ist?

Sub trennenArray() Dim strNr() As String, strText() As String Dim varTmp As Variant Dim lngI As Long With Sheets("Tabelle1") 'tabellennname - Anpassen! varTmp = Split(.Range("G1").Text, vbLf) 'Arrays dimensionieren Redim strNr(UBound(varTmp)) Redim strText(UBound(varTmp)) For lngI = 0 To UBound(varTmp) strNr(lngI) = Trim(Left(varTmp(lngI), 15)) strText(lngI) = Trim(Mid(varTmp(lngI), 16)) Next End With End Sub

	A	B	C	D	E	F	G
1	1-234-56-78-901 Auftrag-Text	1-234-56-78-901	Auftrag-Text	1-234-56-78-901, 3-456-78-90-123, 2-345-67-89-012
2	3-456-78-90-123 Auftrag und Text	3-456-78-90-123	Auftrag und Text	Auftrag-Text, Auftrag und Text, Auftragstext 1 a
3	2-345-67-89-012 Auftragstext 1 a	2-345-67-89-012	Auftragstext 1 a	MxFml C1:D3: {=VSplit(WECHSELN(A1:A3;" ";"\|";1);"\|")}
4		MxFml C5:C7: {=INDEX(VSplit(WECHSELN(A1:A3;" ";"\|";1);"\|");;1)}	ZFml E1:=VJoin(C1:C3;", ")
5	1-234-56-78-901	Auftrag-Text	1-234-56-78-901	Auftrag-Text		ZFml E2:=VJoin(D1:D3;", ")
6	3-456-78-90-123	Auftrag und Text	3-456-78-90-123	Auftrag und Text	1-234-56-78-901, 3-456-78-90-123, 2-345-67-89-012
7	2-345-67-89-012	Auftragstext 1 a	2-345-67-89-012	Auftragstext 1 a	Auftrag-Text, Auftrag und Text, Auftragstext 1 a
8	ZFmln A5[:A7]:=Splint(A1;;1;1)	MxFml D5:D7: {=INDEX(VSplit(WECHSELN(A1:A3;" ";"\|";1);"\|");;2)}
9	ZFmln B5[:B7]:=VJoin(Splint(A1;;2))	MxFmln E6[:E7]: {=VJoin(INDEX(VSplit(WECHSELN(A$1:A$3;" ";"\|";1);"\|");;ZEILE(A1));", ")}

1-234-56-78-901 Auftrag-Text

1-234-56-78-901

Auftrag-Text

1-234-56-78-901, 3-456-78-90-123, 2-345-67-89-012

3-456-78-90-123 Auftrag und Text

3-456-78-90-123

Auftrag und Text

Auftrag-Text, Auftrag und Text, Auftragstext 1 a

2-345-67-89-012 Auftragstext 1 a

2-345-67-89-012

Auftragstext 1 a

MxFml C1:D3: {=VSplit(WECHSELN(A1:A3;" ";"|";1);"|")}

MxFml C5:C7: {=INDEX(VSplit(WECHSELN(A1:A3;" ";"|";1);"|");;1)}

ZFml E1:=VJoin(C1:C3;", ")

1-234-56-78-901

Auftrag-Text

1-234-56-78-901

Auftrag-Text

ZFml E2:=VJoin(D1:D3;", ")

3-456-78-90-123

Auftrag und Text

3-456-78-90-123

Auftrag und Text

1-234-56-78-901, 3-456-78-90-123, 2-345-67-89-012

2-345-67-89-012

Auftragstext 1 a

2-345-67-89-012

Auftragstext 1 a

Auftrag-Text, Auftrag und Text, Auftragstext 1 a

ZFmln A5[:A7]:=Splint(A1;;1;1)

MxFml D5:D7: {=INDEX(VSplit(WECHSELN(A1:A3;" ";"|";1);"|");;2)}

ZFmln B5[:B7]:=VJoin(Splint(A1;;2))

MxFmln E6[:E7]: {=VJoin(INDEX(VSplit(WECHSELN(A$1:A$3;" ";"|";1);"|");;ZEILE(A1));", ")}

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread