Text finden (Fortsetzung)
Erich
benötige nochmals Hilfe:
habe aus dem Archiv einen Ansatz für eine Lösung, von Nepumuk und Dieter Klemke
bereits angepasst aber doch noch nicht ganz gelöst:
Ich habe in der Zelle A3 stehen:
WV 234 Muster Kaufen 462 T
Nun habe ich die Lösung, dass in einer Zelle der Name eingetragen wird:
Muster kaufen
Sub aaaTest() Dim anfText As Long Dim länText As Long Dim i As Long, j As Long Dim zf As String For j = 3 To 25 zf = Worksheets("Tabelle1").Cells(j, 1) ' Position des Blanks nach der 1. Zahl anfText = InStr(4, zf, " ") + 1 ' Anfang der 2. Zahl suchen For i = anfText To Len(zf) If IsNumeric(Mid$(zf, i, 1)) Then länText = i - 1 - anfText Exit For End If Next i Cells(j, 4) = Mid$(Cells(j, 1), anfText, länText) Next j 'MsgBox Mid$("zf, anfText, länText") End Sub
Normalerweise müssen die Zellen in Spalte A wie folgt erfasst werden:
1. WV
2. Leerstelle (Blank)
3. Zahl (2 bis 5-stellig)
4. Namen, Buchstaben (evtl. mit Leerstellen)
5. Leerstelle (Blank)
6. Zahlen
--> Ziel soll sein, nur die Namen, Buchstaben (=4.) anzuzeigen.
Leider führt der o.g. Code zu einem Abbruch, wenn von dieser Eingabe abgewichen wird; zB. bei "WV, 234 M...."
Nun sollte hier vielleicht dann eine Fehlermeldung in die Spalte 4 der
betreffenden Zeile eingetragen werden:
For i = anfText To Len(zf)
If IsNumeric(Mid$(zf, i, 1)) Then
länText = i - 1 - anfText
'Exit For
Else
If IsNotNumeric....?
End If
Next i
Hat jemand eine Idee?
Besten Dank für eine Hilfe!
mfg
Erich