Hallo Matthias L. Hab es letzt woche leider nicht geschafft ins Inet zu gehen und mich für deine Hilfe zu bedanken. Das Makro Funktioniert mit deinem Vorschlag sehr gut. Vielen Dank nocheinmal. Ich konnte den alten Beitrag nicht mehr bearbeiten, deshalb der neue.
Gruß Marcus
AW-----------Bezug auf alte Mitteilung----------
Hallo Marcus
Ersetze mal diese Code:
If Not Intersect(Target, Cells(3, 4), Cells(4, 4), Cells(5, 4), Cells(7, 4), Cells(8, 4)) Is _
Nothing Then
durch diesen hier ...
If Not Intersect(Target, Cells(3, 4)) Is Nothing Or _
Intersect(Target, Cells(4, 4)) Is Nothing Or _
Intersect(Target, Cells(5, 4)) Is Nothing Or _
Intersect(Target, Cells(7, 4)) Is Nothing Or _
Intersect(Target, Cells(8, 4)) Is Nothing Then
evtl. hilft das schon
Gruß Matthias