Eine Suchfunktion in Excell 2007 VBA

Hallo,

Ich brauch hilfe bei einer such funktion ich will das die funktion einzelne Buchstaben überprüft und nicht nur das ganz Wort.

Das ist bis jetzt die funktion die auch klappt. allerdingst überprüft sie nur das ganze Wort. wenn ich für Sname nur ein T eingebe kommt nichts.

Do While Sheets(„Stammdaten“).Cells(z, 2) Sname
z = z + 1
Loop

Das ist was ich bis jetzt habe. es funktioniert auch was ich da habe.
Allerdings funktioniert es nur mit ganzen Wörtern. also wenn ich zb. T eingebe findet er nichts obwohl es eine Tim gibt. er findet ihn nur wenn ich Tim eingebe. und das wäre cool wenn mir einer zeigen könnte wie ich es programmiere das er einzielne Buchstaben prüft.

Wäre cool wenn mir einer hilft.

mfg
Leo

Hi,

das müsste mit der instr() Funktion klappen. Müsste so klappen, hab ich aber nicht getestet. Sonst schau mal der Hilfe zu der Funktion nach.

Do While instr(Sheets(„Stammdaten“).Cells(z, 2).value, Buchstabe)

Do While Sheets(„Stammdaten“).Cells(z, 2) Sname
z = z + 1
Loop
Allerdings funktioniert es nur mit ganzen Wörtern. also wenn
ich zb. T eingebe findet er nichts obwohl es eine Tim gibt. er
findet ihn nur wenn ich Tim eingebe. und das wäre cool wenn
mir einer zeigen könnte wie ich es programmiere das er
einzielne Buchstaben prüft.

Hallo Leo,

z=application.match(„T*“,range(B1:B1000),0)
bzw.
z=application.match(„T*“,columns(2),0)

wird nichts gefunden kommt NV#, was ja korrekt ist.

Bei 2007 geht auch dieses:

With Application
 z = .IfError(.Match("T\*", Columns(2), 0), "meinFehler")
MsgBox z

Gruß
Reinhard

Ja Vielen Dank,

Es war zwar nicht genau der richtige Code aber die hilfe war sehr gut, ich konnte durch InStr das problem lösen, danke :smiley:

Das ergebniss:

z = 2
Do While z 

Danke