Ich habe folgenden Code, um mittels einer Schaltfläche eine Liste in Tabelle 1 zu sortieren:
Private Sub CommandButton1_Click()
'Nach Namen sortieren
Range("A4:J43").Select
Selection.Sort Key1:=Range("D5"), Order1:=xlAscending, Key2:=Range("C5") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom
End Sub
Wie kriege ich es hin, dass diese Sortierung nacheinander auch in Tabelle 2 und 3, (im selben Bereich) durchgeführt wird. In Tabelle 4 soll aber nicht sortiert werden.
Danke und Gruss
Ben