Text finden (Archiv-Recherche)

Forumthread: Text finden (Archiv-Recherche)

02.04.2004 06:50:29

Erich M.

Hallo EXCEL-Freunde,
habe aus dem Archiv einen Ansatz für eine Lösung, von Nepumuk bereits angepasst
und soll jetzt erweitert werden:
Ich habe in der Zelle A2 stehen:
WV 234 Muster Kaufen 462 T
Nun habe ich die Lösung, dass die MsgBox anzeigt:
Muster Kaufen 462 T
Public


Sub Erich()
MsgBox Mid(Cells(2, 1), InStr(InStr(1, Cells(2, 1), " ") + 1, Cells(2, 1), " ") + 1)
End Sub

Und suche die Lösung, dass die MsgBox anzeigt:
Muster kaufen
Die "Abtrennung" der zweiten Zahl schaffe ich leider nicht.
Noch ergänzende Hinweise, die Zellen sind immer nach dem gleichen System
erfasst:
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.
Der alte Thread:
https://www.herber.de/forum/archiv/380to384/t382559.htm
Besten Dank für eine Hilfe!
mfg
Erich

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text finden (Archiv-Recherche)

02.04.2004 09:45:14

Dieter Klemke
AW: Text finden (Archiv-Recherche)

02.04.2004 17:01:29

Erich M.
doch noch gelöst - Danke Dieter!!

02.04.2004 17:11:23

Erich M.
Fehlermeldung

02.04.2004 17:39:22

Erich M.

AW: Text finden (Archiv-Recherche)

02.04.2004 09:45:14

Dieter Klemke

Hallo Erich,
versuch es mal mit der folgenden Prozedur:


Sub Test()
Dim anfText As Long
Dim länText As Long
Dim i As Long
Dim zf As String
zf = Worksheets(1).Cells(2, 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
MsgBox Mid$(zf, anfText, länText)
End Sub

MfG
Dieter

AW: Text finden (Archiv-Recherche)

02.04.2004 17:01:29

Erich M.

Hallo Dieter,
leider kommt in der MsgBox nur "ok" ohne Daten.
Wenn ich ändere in
Cells(2,5) = Mid$ (zf, anfText, länText)
wird in Zelle 2,5 nur ein "Blank" eingetragen.
Noch eine Idee?
mfg
Erich

doch noch gelöst - Danke Dieter!!

02.04.2004 17:11:23

Erich M.

fürs Archiv:


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

mfg
Erich

Beliebteste Forumthreads (12 Monate)

Forumthread: Text finden (Archiv-Recherche)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread