Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1452to1456
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
Inhaltsverzeichnis

String abschneiden (Mitte)

String abschneiden (Mitte)
19.10.2015 09:40:13
Larissa
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.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String abschneiden (Mitte)
19.10.2015 09:45:17
ChrisL
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

AW: String abschneiden (Mitte)
19.10.2015 09:53:28
Larissa
Vielen Dank! Das habe ich gesucht!

Da du ohnehin VBA verwenden willst, ...
19.10.2015 16:10:45
Luc:-?
…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 …
Anzeige

7 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige