Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
408to412
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
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text finden (Archiv-Recherche)

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
Anzeige
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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige