Ich hätte da noch - für euch - eine Kleinigkeit:
bei folgendem Schleifenteil habe ich zu Probezwecken die feste Angabe A443:A.....
angegeben.
Variable besteht mit dem Namen : EndZeilefürsZählwerk + 2
starre Eingabe funktioniert:
ElseIf Not Intersect(Target, Sh.Range("A443:A" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
mein Umbau - geht in die Hose:
ElseIf Not Intersect(Target, Sh.Range.Cells(EndZeilefürsZählwerk + 2, 1), Cells(Rows.Count, 1)) Is Nothing Then
Bitte wer kann mir das richten.
Danke und mfg STeve