Wort zerlegen,nach Zahlen und Wörtern

Forumthread: Wort zerlegen,nach Zahlen und Wörtern

Jürgen

Hallo liebe Helfer,
ich habe in beiliegender Mappe ein Makro geschrieben. Wenn man das so nennen kann.
Es arbeitet sich von Zelle zu Zelle tiefer und soll die Werte sofern eine Ziffer enthalten ist getrennt in andere Zellen schreiben.
In Zeile 17 funktioniert das wie gewollt.
Ab Zeile 18 geht es nicht mehr, da hinten im Wort nochmal ein Leerzeichen ist.
Zeile 18 solllte eigentlich so aussehen wie Zeile 17 (nach Makro !!)
J18 sollte dann 10018626 sein und K18 sollte Bandmodul 2 sein
Kann ich irgendwie beim Durchsuchen mit Instr suchen, wo die Zahl aufhört ?
In der Suche habe ich nichts gefunden.
Ich hoffe ich habe mich verständlich ausgedrückt.
Danke schon mal im voraus
Gruß Jürgen
Datei: https://www.herber.de/bbs/user/70449.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Mein Codevorschlag

06.07.2010 09:50:08

NoNet

Hallo Jürgen,
ich habe den Code einfach nochmal neu geschrieben, so wie ich ihn mir vorstelle - teste ihn doch mal an einer Kopie Deiner Daten :

Sub Trennen2()
'Codevorschlag NoNet - www.excelei.de
Dim lngZ As Long, lngS As Long
Dim strInhalt As String, strZahl As String
For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
strInhalt = Cells(lngZ, 1)
If strInhalt Like "*-- *[0-9]*" Then
lngS = InStr(strInhalt, "-- ") + 2
strInhalt = Trim(Mid(strInhalt, lngS + 3, 100))
lngS = InStr(strInhalt, " ")
strZahl = Left(strInhalt, lngS - 1)
If IsNumeric(strZahl) Then
Cells(lngZ, 10) = "'" & Trim(strZahl)
Cells(lngZ, 11) = Trim(Mid(strInhalt, lngS, 100))
End If
End If
Next
End Sub

Gruß, NoNet
PS: Deutschland spielt "Vier gewinnt" :
gegen 4:0 gegen 4:1 gegen 4:0 gegen ?:? ;-)

AW: Mein Codevorschlag

06.07.2010 10:01:12

Jürgen

Hallo NoNet,
ich verstehe zwar nicht genau warum,
aber super , das Ergebnis ist genau das was ich wollte.
Werde deinen Code mal genau studieren, vielleicht lerne ich ja was !!!.
Danke vielmals
Gruß Jürgen

Klitzekleine Korrektur noch (>100 Zeichen)....

06.07.2010 10:08:42

NoNet

Hallo Jürgen,
habe mir Deine Daten eben nochmal angesehen und daher noch einen kleinen Korrekturvorschlag :
Da einige Bezeichnungen länger als 100 Zeichen sind (z.B. Zeile 67) schneidet der Code diese ab dem 100. Zeichen ab !
Das kannst Du korrigieren, indem Du die beiden 100 im Code z.B. in 200 änderst :

             strInhalt = Trim(Mid(strInhalt, lngS + 3, 200))
Cells(lngZ, 11) = Trim(Mid(strInhalt, lngS, 200))

Gruß, NoNet

Beliebteste Forumthreads (12 Monate)

Wort zerlegen,nach Zahlen und Wörtern

Forumthread: Wort zerlegen,nach Zahlen und Wörtern

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Wort zerlegen,nach Zahlen und Wörtern

Forumthread: Wort zerlegen,nach Zahlen und Wörtern

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread