Reichweite einer Schleife erhöhen
#21
… was er bei mir problemlos erledigt!
Lade mal ein reduziertes Beispiel hoch.

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Top
#22
Zitat:das "sternzeichen" fehlte:
Der führende und schließende Asterisk ist bei xlPart nicht notwendig.

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Top
#23
Hallo Ralf,
glaube ich dir gerne, aber bei mir muss, dass * vorangestellt sein und es funktioniert. Jetzt bastle ich erst mal
ein bißchen mit dem neuen Code von Dir und snb rum. Gefällt mir und danke euch beiden.

So long
Top
#24
Hallo Ralf,

bei mir löst diese Zeile:


Code:
Set rng = Columns(3).Find("Mühe*lag", Cells(1), xlValues, xlPart, MatchCase:=True)

den Laufzeitfehler 13, "Typen unverträglich" aus.


So läuft es:
Code:
Set rng = Columns(3).Find("Mühe*lag", , xlValues, xlPart, MatchCase:=True)

 Woran liegt das?
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste