Suchfunktion
02.07.2008 12:58:41
Armin
ich habe folgendes Problem.
Ich suche mit nachfolgendem Makro nach einem Suchmuster innerhalb einer Excel-Datei. Soweit funktioniert das ganze auch. Nun möchet ich aber den genauen Wert des Suchmusters extrahieren und nicht den gesamten Zellinhalt.
Hier das Makro:
Sub Test_Suchmuster()
Set ws1 = ThisWorkbook.Sheets(1)
For i = 1 To 3
Set suche = ws1.Cells(i, 1).Find("?.?.?/?-?")
If Not suche Is Nothing Then
MsgBox suche.Find("?.?.?/?-?")
End If
Next i
End Sub
Wenn z. B. der Zellinhalt wie folgt lautet: "Wert 1.234.567/1-22 Artikel" dann findet das Makro korrekt die Zelle liefert aber als Inhalt den gesamten Zellinhalt zurück.
Ich bräuchte allerdings nur den Wert "1.234.567/1-22" aus der Zelle, der eben dem Suchmuster entspricht.
Gibt es dafür eine Lösung?
Vielen Dank
Armin