Hallo Karin,
gelöst ja - aber ich weiß nicht, ob das ganz korrekt ist. Hier mein Code:
With ThisWorkbook.ActiveSheet
Set raZelle = .Range("Quelle")
ErsteZeile = .Range(raZelle.Address).Row
ErsteSpalte = .Range(raZelle.Address).Column
myKey1 = Cells(ErsteZeile, ErsteSpalte + 1).Address
myKey2 = Cells(ErsteZeile, ErsteSpalte).Address
.Range("Quelle").Sort Key1:=Range(myKey1), Order1:=xlAscending, Key1:=Range(myKey2), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End With
Ich dachte, "myKey1" und "myKey2" müssten Ranges sein, aber wenn ich diese innerhalb der Klammer in Anführungszeichen schreibe, bekomme ich einen Fehler. Jetzt hab' ich die Klammern weggelassen, es funktioniert, aber ich weiß nicht recht, warum ...
Kannst Du mir das erklären?
Danke, Gruß
Jojo