Sorry, hatte eine denkfehler eingebaut.
So müsste es richtig sein:
theoretisch könnten sich die 2 bereiche auch überschneiden und wenn, werden beide codes ausgeführt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dim rng1, rng2 as variant
rng1= Range(xy,xyz) 'hier deinen bereich 1 eingeben
rng2= Range(xy,xyz) 'hier deinen bereich 2 eingeben
If NOT Intersect(rng1, Target) Is Nothing Then
Hier dein code für Bereich 1
................
end if
If NOT Intersect(rng2, Target) Is Nothing Then
Hier dein code für Bereich 2
................
end if
exit sub
|