Hallo liebe Forengemeinde,
ich habe eine recht simple Frage.
Ich habe eine Range die in etwa so aussieht:




Nun möchte ich dies so definieren, dass rng in eine Function übernommen wird.
In dieser Function soll eine bedingte Formatierung auf diese rng angewendet werden. Sprich




Meine Frage ist nun: wie muss rng am anfang des Sub dekliniert werden? Dim rng as Range?
Wie muss die Function dann aussehen, damit diese rng einwandfrei übernommen werden kann?
Ich habe schon einige Varianten probiert, aber es springt immer wieder der Debugger an.

Vielen Dank für eure Hilfe.

irgend wie hast du ja rng deklariert. das gibtst du einfach an die funktion weiter. oder verstehe ich irgend etwas falsch?

like that?

JulesM schrieb:

Meine Frage ist nun: wie muss rng am anfang des Sub dekliniert werden? Dim rng as Range?

exactly =)

Ja, danke. Ich habe am Beginn des Subs rng as Range dekliniert.
Aber irgendwie klappt es mit:




bzw




nicht. Der Debugger geht an und meldet Application-defined or object-defined error.


Edit: Habe in der Suchfunktion Hilfe gefunden und mit:

With Worksheets("Result")
Set rng = .Range(.Cells(2, 5), .Cells(Lastrow, 26))
End With

das Problem lösen können.
Leider bleibt der Debugger nun bei



hängen, wobei

was ist denn Lastrow?
eine von dir definierte function?

Was wir bei deinem Code nicht sehen:
- Wie ist LastRow definiert? Hat LastRow einen gültigen Wert?

Ja, LastRow hat eine gültigen Wert.

Gute Nachricht: Es funktioniert nun. Ich habe dummerweise
ConditionalFormatting (rng) geschrieben. Richtigerweise heisst es jedoch ConditionalFormatting rng

keine Ahnung was mich da geritten hat
Vielen Dank an alle für die Hilfe