gefilterte Daten sortieren

Hi,
ich filtere per VBA Daten in einem bestimmten Bereich.
Nun möchte ich diese markierten, gefilterten Daten einmal
nach Spalte J und anschließend H aufsteigend sortieren.
Wie kann ich das erreichen?
Vielen Dank.

Hallo Karl,

lass dem Filtern-Befehl den Sortier-Befehl folgen:

Sub Filtern()
   Range("A1").CurrentRegion.Sort _
      key1:=Range("A2"), _
      order1:=xlAscending, _
      key2:=Range("D2"), _
      order2:=xlAscending, _
      header:=xlYes
End Sub

Es werden nur die sichtbaren Zeilen sortiert.

hans