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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen