Workbook_SheetSelectionChange - 2 Varianten
10.07.2007 10:52:25
Peter
Nachfolgender Ereigniscode bewirkt, dass bei Markieren des Ranges A15:F15 in einem der Worksheets der Code "Aufheben" aufgerufen wird.
Nun möchte ich im gleichen Workbook mit einer Codeerweiterung erreichen, dass bei Markieren des Ranges A16:F16 ein anderer Code aufgerufen wird.
Das Problem ist, dass mir nicht klar ist, was in der ersten Zeile (in der Klammer) anderes stehen muss, zudem muss ja, wenn die ersten Abfragen nicht zutreffen, nicht der Code verlassen werden (mit Exit Sub) sondern der zweite Teil des Codes abgearbeitet werden. Wie springt man einen zweiten Teil an? Ich stelle mir vor, dass ich bei den Dimensionierungen mit rngS1 und rngS2, lngS1 und lngS2 etc. arbeite. Aber wie das genau zubewerkstelligen ist, ist mir leider schleierhaft.
Kann mir jemand weiterhelfen?
Danke, Peter
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rngS As Range, lngS As Long, rngT As Range
Set rngS = Range("A15:F15") ' hier Bereich angeben - dürfen sich nicht überschneiden!
lngS = rngS.Count
If Target.Count lngS Then Exit Sub
Set rngT = Intersect(Target, rngS)
If rngT Is Nothing Then Exit Sub
If rngT.Count lngS Then Exit Sub
' MsgBox rngS.Address(0, 0) & " wurde ausgewählt"
Call Aufheben
End Sub