Text von Zahlen trennen

Zahlen · 2016-04-19T20:46:58+00:00

Hallo Leute ich sollte einen text mit zahlen trennen, bringe das aber nicht zuwege. Ich hab Daten die werden automatisch erstellt und nun sollte ich das ganze aufteilen, das Problem ist das es immer unterschiedlich lang ist. Hat wer eine Ahnung wie das gehen könnte Per Formel. Das Ergebnis was ich benötige wäre. z.B: ABS01-25 = ABS, nächste zelle 01, nächste zelle 25 MA10-19 = MA, nächste zelle 10, nächste zelle 19 Ich hoffe es gibt ne Möglichkeit :-) kleiner Auszug der Daten Danke mfg Jürgen • ABS01-19 ABS01-25 ABS01-49 ABS01-8 ABS01S-16 ABS01S-8 MA03-19 MA03-30 MA03-40 MA05-40 MA10-19 MA10-30 MA10-40 MA20-40 MA20-50 MA20-51 MA8-40 MEL0,5-12 MEL0,5-19 MEL0,5-25

…Laser;
wie soll das getrennt wdn? Und sollen die numerischen Teile zu echten Zahlen gewandelt wdn? Dann würden allerdings die Vornullen verloren gehen und müssten per ZahlenFormat erzeugt wdn.
So könnte das Ergebnis evtl aussehen:

	A	B	C	D
31	ABS01-19	ABS	01	19
32	ABS01-25	ABS	01	25
33	ABS01-49	ABS	01	49
34	ABS01-8	ABS	01	8
35	ABS01S-16	ABS	01S	16
36	ABS01S-8	ABS	01S	8
37	MA03-19	MA	03	19
38	MA03-30	MA	03	30
39	MA03-40	MA	03	40
40	MA05-40	MA	05	40
41	MA10-19	MA	10	19
42	MA10-30	MA	10	30
43	MA10-40	MA	10	40
44	MA20-40	MA	20	40
45	MA20-50	MA	20	50
46	MA20-51	MA	20	51
47	MA8-40	MA	8	40
48	MEL0,5-12	MEL	0,5	12
49	MEL0,5-19	MEL	0,5	19
50	MEL0,5-25	MEL	0,5	25
51	B31:D31[;B32:D50]: {=VSplit(MaskOn(A31;"bst")&" "&MaskOn(A31;"num";","))}

Die MatrixFmln für B35:D35 & B36:D36 sehen natürlich etwas anders aus:
{=VSplit(Splint(MaskOn(A35; "bst");;1;1)&" "&WECHSELN(MaskOn(WECHSELN(A35;"S-";", ");"num";",");", "; "S ")) }
In den Fmln wdn 3 sog UDFs verwendet, die im Archiv per RECHERCHE zu finden sind. Das ist dann zwar eine Fml, aber natürlich auch VBA!
Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …

Hallo Laser,
ich bitte den nachfolgenden Excel 97 Code einmal zu testen.
Es ist zwar eine alte Programmiertechnik, aber wenn es dir hilft ...
Ich habe deine Beispiel Daten in Spalte A2 geladen, s. Const TextAnf = "A2"
Wenn die Daten bei dir woanders stehen bitte die Adresse manuell aendern.
Ich weiss nicht in welcher Tabelle sie bei dir stehen, bei mir war es Tabelle1
With Worksheets("Tabelle1") -- (Tabelle muss ggf. geaendert werden)
Würde mich sehr freuen wenn das Makro dein Problem lösen kann.
mfg Piet

Option Explicit      '19.4.2016  Piet für Herber Forum
Const TextAnf = "A2"       'Anf-Adresse angeben
Sub String_zerlegen()
Dim AC As Object, Edr As String
Dim LStrg As String, RStrg As String
Dim a As Integer, b As Integer
With Worksheets("Tabelle1")
'Text End-Adresse ermitteln
Edr = .Range(TextAnf).End(xlDown).Address
'Schleife zum zerlegen des Text Bereichs
For Each AC In .Range(TextAnf, Edr)
'Len des Anf-Text ermitteln
For a = 1 To Len(AC)
If IsNumeric(Mid(AC, a, 1)) Then Exit For
Next a
LStrg = Mid(AC, a, 100) 'String ohne Anf Text
RStrg = Mid(LStrg, InStr(LStrg, "-") + 1, 100)
LStrg = Left(LStrg, InStr(LStrg, "-") - 1)
'Anf-Text, 1.Zahl, 2. Zahl speichern
AC.Offset(0, 1) = Left(AC, a - 1)  'Anf-Text
AC.Offset(0, 2) = "'" & LStrg      'Left String
AC.Offset(0, 3) = "'" & RStrg      'Right String
Next AC
End With
End Sub

Forumthread: Text von Zahlen trennen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Text von Zahlen trennen

Forumthread: Text von Zahlen trennen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread