Wobei die zweite Spalte schon einen Wert aus einer anderen Zelle übernommen hat.
Der höchste Wert sol oben stehen dann der zweite u.s.w.
Wer kann mir da weiterhelfen!
Im voraus scho mal vielen Dank!
fertig
Gruß
Willie
Wie kann ich das automatisieren ohne die dateien selbst zu markieren und dann zu sortieren
Mfg
jawe
Wie kann ich das automatisieren ohne die dateien selbst zu markieren und dann zu sortieren
Mfg
jawe
Sub Makro2()
Sheets("Tabelle1").Select
Columns("A:B").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Key2:=Range("B2") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub
Gruß
Willie
vielleicht noch eins.
was muss ich da eingeben wenn das Sortieren nur bis z.b.Zeile 20
gehen soll!
Wenn ich das so einfüge bekomme ich von VBA die Meldung
"Index ausserhalb des gültigen Bereichs"
habe das schon eon bischchen angepast
Sub Makro2()
Sheets("Tabelle2").Select
Columns("B:C").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Key2:=Range("C2") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub
Gruß
Willie