Alles weitere zu der Frage ist in der Tabelle.
https://www.herber.de/bbs/user/44078.xls
Hoffe auf Antworten vielen Dank übrigens für die Hilfen, ohne die wäre ich nicht soweit gekommen.
Gruß ZekA
If Not Intersect(Target, .Range(.Cells(5, 2), wks.Cells(lngZeile, 5))) Is Nothing Then
im Teil .Range(.Cells(5, 2)
die 5 entsprechend anpassen.
Die letzte Zeile mit Daten wird automatisch erkannt.
https://www.herber.de/bbs/user/44189.xls
Gruß
Franz