Office: Platzhalter beim Durchsuchen von Text in Zellen

Hallo,

wenn ich einen Text in einer Zelle durchsuchen will und mir ist der Anfang und das Ende des gesuchten Textstückes bekannt, aber in der Mitte sind 6 Zeichen, die immer unterschiedlich sind...

wie kann ich nach diesen Textstück suchen?
Welche Platzhalter kann man in VBA benutzen und wie?
Ähnlich MSDOS, wo man mit "dir ???.exe" sich alle Executables eines Verz. anzeichen lassen kann, deren Dateinamen 3 Zeichen lang sind.

mfg
tobsn

:)

 

Hallo tobsn,

die Funktion SUCHEN akzeptiert sowohl "?", als auch "*" als Jokerzeichen:

	A
1	aaaaabc.txtaaaaa
2	5
3	1

A2 : =SUCHEN("???.txt";A1)
A3 : =SUCHEN("*.txt";A1)

Gruß Ingolf

 

Moin,

danke für die schnelle Antwort. Ich bräuchte allerdings das ganze für VBA, nach Art...

Code:

 

Hallo tobsn,

im Text "Die Datei abc.txt ist komplett" in Zelle A1 läßt sich der Dateiname, von dem ich lediglich die Länge und die Endung ".txt" kenne folgendermaßen durch "xyz.txt" ersetzen (die 7 im Code ist die bekannte Länge des Dateinamens - inklusive Endung):

Code:

 

So,

hab das ganze ein wenig verändert, da ich keinen Dateinamen suche, sondern ein bestimmten Textbereich und ich möchte nicht mit Range arbeiten, sondern befinde mich in einem "With ActiveCell" Bereich...

Code:

Funktioniert nur leider nicht. Er bricht immer ab, wenn er die iStart Zeile erreicht. Ne Ahnung, warum?

mfg

 

Hallo tobsn,

das ist doch hoffentlich nicht die ganze Zeile?

Gruß Ingolf

 

Nein, natürlich nicht. Mein Fehler...

iStart = Evaluate("=search(""< font color=" & Chr(34) & "F??????" & Chr(34) & " >""

 

Hallo tobsn,

da fehlt hinten noch ein winziges Stück:
Code:

Gruß Ingolf

 

Fehlt so nicht im search Befehl der Bereich, der durchsucht werden soll? ich dachte da an folgende vollständige zeile Code:

Aber diese funktioniert leider nicht...

gruß tobsn

 

Hallo tobsn,

zäumen wir das Pferd doch mal von der anderen Seite her auf:

Dein Suchstring mit Platzhalterzeichen:
< font color="#F??????" >

Zu suchen in Zelle:
A1

Ergibt folgende Codezeile:
iStart = Evaluate("=search(""< font color=" & Chr(34) & "#F??????" & Chr(34) & " >"", A1")

Gruß Ingolf

 

Klappt leider auch nicht. Hab das ganze nun folgendermaßen arrangiert:

Code:

Trotzdem bricht er die Sub Verarbeitung an dieser Zeile ab. Ich habe den Text sogar kopiert, also sollte eigentlich kein Schreibfehler darin sein.

Warum bricht er da ab?
Achso, ich benutze Excel 2007. Geht es evtl. deshalb nicht?

gruß tobsn

 

Hallo tobsn,

ich glaube nicht, dass das ein Versionsproblem ist. Versuch mal folgende Variante:

iStart = Evaluate("=SEARCH(""< font color=""&CHAR(34)&""#F??????""&CHAR(34)&"" >"",D6)")

Gruß Ingolf

 

Die fehlenden Leerzeichen setzt er automatisch wieder ein. *frown.gif*
:
Ich würde es dann über einen Umweg machen, sprich der erste Teil "< font color=" lässt sich erfassen und auch löschen. Dann würde ich einfach die darauf folgenden 10 Zeichen auch noch löschen.

Wie könnte ich das umsetzen?

gruß tobsn

 

Hallo tobsn,

das sollte dann so funktionieren:

Code:

 

Hallo tobsn und alle anderen,

weshalb nicht einfach so :

iStart=Application.Worksheetfunction.Search("< font color="& Chr(34) & "#F?????" & Chr(34) & " >" ,[A1])

"< font color="& Chr(34) & "#F?????" & Chr(34) & " >" ist der Suchbegriff (z.B. < font color="#FF3454" > - in den bisherigen Lösungsvorschlägen war jeweils 1 ? zuviel !!),
[A1] ist die Zelle A1, innerhalb der dieser String gesucht wird !

Um Fehler zu vermeiden, könnte man zuvor noch prüfen, ob dieser Suchstring überhaupt in der Zelle enthalten ist :

VBA-Code:

Sub StringSuchen()     Dim strSuchstring As String     strSuchstring = "< font color=" & Chr(34) & "#F?????" & Chr(34) & " >"     If Application.WorksheetFunction.CountIf([A1], "*" & strSuchstring & "*") Then         MsgBox Application.WorksheetFunction.Search(strSuchstring, [A1]), , "Gefunden an Position :"     Else         MsgBox "suchstring nicht gefunden !"     End If End Sub

Code eingefügt mit Syntaxhighlighter 4.15