Probleme mit like
23.09.2014 16:29:15
Franz
ich hab folgendes, das funtkioniert:
With cells(x, y)
If .Value Like "*Beispiel_1*" Or .Value Like "*Beispiel_2*" Or .Value Like "*Beispiel_3*" Or . _
Value Like "*Beispiel_4*" Or .Value Like "*Beispiel_5*" Or .Value Like "*Beispiel_6*" Or .Value Like "*Beispiel_7*" Or .Value Like "*Beispiel_8*" Then
.Interior.ColorIndex = 7
end if
end with
Diese Abfrage wird nun aber an mehreren Stellen in verschiedenen Makros benötigt. Darum wollte ich das Ganze vereinheitlichen wir folgt:
in einem benamten Bereich stehen untereinander die Suchkriterien "Beispiel_1" bis "Beispiel_8" - der Bereich hat den Namen "SonderFormat"
und abfragen wollte ich diesen Bereich mit:
Dim rngSForm as range
With cells(x, y)
For each rngSForm in Range("SonderFormat")
If .value like "*rngSForm *" then
.Interior.ColorIndex = 7
end if
next
end with
Das geht aber leider nicht. Was mache ich da falsch? Muss ich anders deklarieren? Oder geht es überhaupt nicht so? Ich hab Verschiedenes ausprobiert, krieg's aber nicht hin. Drum bitte ich um Eure Hilfe.
danke schonmal und Grüße
Franz