Hallo
Folgender Sytnax funktioniert
Set rng = ActiveSheet.Range("A3:A4").Find(Kommentar)
Wenn der Bereich dynamisch sein soll gehts jedoch nicht
Apos = "A" & Monatszeilennummer
Epos = "A" & Folgemonatszeilennummer
Set rng = ActiveSheet.Range("Apos:Epos").Find(Kommentar)
Wie muss ich das machen ?
Vielen Dank im Voraus
Gruß Horst