mit Find Kombination aus zwei Spalten finden

[Blacko]

Hallo,

trotz langem googeln hab ich keine passende Lösung gefunden, ich glaube aber dass es eine recht simple Frage ist:

ich habe in einem Datenblatt in den ersten vier Spalten Datum, KW, Monat und Jahr stehen. Jede Zeile im Blatt ist ein eigener "Datensatz" eines Tages mit mehreren Informationen.

Bisher frage ich über die Userform die KW ab und lasse mittels Find-Methode nach dem ersten Treffer (von oben nach unten) suchen. Ausgegeben wird mir im Code die Adresse des Suchergebnisses. Alles weitere wird mit Hilfe der Adresse erstellt und klappt auch. 

Ich möchte nun das ganze um das Jahr erweitern. Also KW 28 gibts natürlich jedes Jahr. Ich möchte also dass mir der Code die von oben gesehen erste Adresse ausgibt, in der die gewünschte KW in Spalte B und die gewünschte Jahreszahl in Spalte D steht. quasi die erste Zeile in der diese Kombination zutrifft. 

Hilfsspalte würde ich nur sehr ungerne anlegen, denn dann müsste ich ne Menge Formeln und Makros umschreiben. 

Hat jemand eine Idee wie ich meinen Code erweitern/umbauen kann?

Hier der betreffende Teil des Codes:

        Set rng = Sheets("DB_Ret").Columns("B:B") 
        search = StartKW
        Set cell = rng.Find(What:=search, LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False)


Danke im Voraus.

[schauan]

Hallöchen,

Set rng = Sheets("DB_Ret").Columns("B:B")

suche erst nach dem Jahr und grenze den bereich rng in Abhängigkeit von diesem Treffer ein, also z.B.

Set rng = Sheets("DB_Ret").Range("B" & ErsteZeileJahr & ":B99999")

[Blacko]

Hallo schauan,

ja perfekt das ist es. 

Tatsächlich recht einfach. Naja manchmal sieht man die naheliegenste Lösung nicht.

Ich danke dir für den Denkanstoß.

Gruß