String abschneiden (Mitte)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: String abschneiden (Mitte)
von: Larissa Apfel
Geschrieben am: 19.10.2015 09:40:13

Hallo liebe Community,
ich habe folgendes "Problem":
Ich möchte von einem String ab einem bestimmten "Pattern" links und rechts etwas abschneiden.
So sieht der String zu Beginn aus:
10 6006000000029 Art.Nr.: 21-XX-XXX 10,00
Ich möchte nur folgenden String als Ausgabe haben: 21-XX-XXX
Die Artikelnummern haben folgendes Pattern ###-###-### wobei es jeweils ein, zwei, drei oder vier Zeichen sein können.

Text = Selection.Value
Ergebnis = VBA.Right(Text, VBA.InStr(1, Text, ":") - 9)
Das ist mein Ansatz bisher, aber das ist noch zu statisch.
Über Anregungen/Ideen/Vorschläge würde ich mich sehr freuen.

Bild

Betrifft: AW: String abschneiden (Mitte)
von: ChrisL
Geschrieben am: 19.10.2015 09:45:17
Hi Larissa

Sub t()
Dim str As String
str = "10 6006000000029 Art.Nr.: 21-XX-XXX 10,00"
str = Right(str, Len(str) - InStr(1, str, ":") - 1)
str = Left(str, InStr(1, str, " ") - 1)
MsgBox str
End Sub

(könnte man auch noch weiter "verschachteln")
cu
Chris

Bild

Betrifft: AW: String abschneiden (Mitte)
von: Larissa Apfel
Geschrieben am: 19.10.2015 09:53:28
Vielen Dank! Das habe ich gesucht!

Bild

Betrifft: Da du ohnehin VBA verwenden willst, ...
von: Luc:-?
Geschrieben am: 19.10.2015 16:10:45
…Larissa,
könntest du auch 2 UDFs in einer ZellFml einsetzen:
=VSplit(Splint(A1;"Art.Nr.: ";2))
Beide liegen im Herber-ForumsArchiv vor. RECHERCHE bemühen!
Gruß, Luc :-?

Besser informiert mit …

 Bild

Beiträge aus den Excel-Beispielen zum Thema "String abschneiden (Mitte)"