Nachfolgender Code bewirkt, dass beim Anwählen bestimmter Zellen in zwei bestimmten Reihenfolgen ein Makro ausgeführt wird.
Hier im konkreten Fall sind es nur 3 Zellen. Da diese Ereignisprozedur auch funktionieren will, wenn der Range grösser ist (und nicht zusammenhängend), möchte ich den Code modifizieren, dass es keine Rolle mehr spielt, in welcher Reihenfolge die einzelnen Zellen angewählt wurden. Wenn alle Zellen gemäss Range in beliebiger Reihenfolge angewählt wurden (keine weniger und auch keine zusätzlich), soll das Makro ausgeführt werden.
Wie muss der Code angepasst werden?
Danke für Feedback
Peter
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ber As Range, ber2 As Range
Set ber = Range("A2:A3,A5")
Set ber2 = Range("A5,A2:A3")
If Target.Address = ber.Address Or Target.Address = ber2.Address Then test
End Sub