Office: VBA Excel Sortierung nach zwei Kriterien

Hallo liebe Leute...

Ich habe mal wieder ein kleines Problemchen und brauche eure Hilfe *sos !

Ich habe eine Tabelle, welche ich nach Spalte H sortieren lasse.

Dies geschieht über folgendes Makro:

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Artikelliste").Activate
ActiveSheet.UsedRange.Select
Selection.Sort Key1:=Range("H1:H200"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

Wie kann ich nun hier danach noch eine Sortierung integrieren, welche alle bereits sortierten Einträge aus Spalte H nun noch untereinander alphabetisch nach Spalte A sortiert *boah ???

Vielen Dank schonmal...

LG, Krissi.

:)

 

*idee oohh... ich habs selbst hin bekommen *grins

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Artikelliste").Activate
ActiveSheet.Range("A1:I200").Select
Selection.Sort Key1:=Range("H1:H200"), Order1:=xlAscending, _
Key2:=Range("A1:A200"), Order2:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

Auch ohne große Makro-Kenntnisse *top *winner *happy *dance *bye *Sun