da bin ich mal wieder mit einem neuen Problem :)
Ich habe diese Formel:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D4:E56]) Is Nothing Then
Range("B4:D20").Sort Key1:=Range("D4"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, Key2:=Range("B4"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
Eigentlich funktioniert alles super, nur ein problem habe ich mit dieser zeile:
If Not Intersect(Target, [D4:E56]) Is Nothing Then - Wie kann ich in VBA eingeben, dass die koordinaten zu einem Tabellenblatt mit Namen "XYZ" gehören?
Gruß, Gerrit