Hallo liebes Forum,
ich weiß, das Thema wurde schon oft durchgekaut, aber ich steig nicht hinter und kann die vielen Beispielcodes nicht anpassen…
Vielleicht könnt Ihr mir mit nem Code helfen.
Zum Problem: Ich habe Spalte A und B mit 300 Zeilen. In A stehen Namen, in B stehen Werte. Nun lese ich diese zwei Spalten in ein zweidimensionales Array ein und möchte es nach den Werten aus Spalte B sortieren und in Spalte C und D wieder reinschreiben.
Könnt Ihr mir helfen? Danke!
Gruß
Hi,
kennst Du das hier?
http://www.activevb.de/tipps/vb6tipps/tipp0547.html
Sortieren merdimensionaler Arrays mit Quicksort von AVB.
Wenn ja, wo ist das Problem?
Gruß Rainer
ich weiß, das Thema wurde schon oft durchgekaut, aber ich
steig nicht hinter und kann die vielen Beispielcodes nicht
anpassen…
Zum Problem: Ich habe Spalte A und B mit 300 Zeilen. In A
stehen Namen, in B stehen Werte. Nun lese ich diese zwei
Spalten in ein zweidimensionales Array ein und möchte es nach
den Werten aus Spalte B sortieren und in Spalte C und D wieder
reinschreiben.
Hallo Achim,
solltest du Excel-Vba meinen, dann benutze einen der beiden
nachfolgenden Codes. Sie unterscheiden sich minimal in der
Geschwindigkeit.
Hat die Tabelle Überschriftszeile ersetze vbNo durch vbYes.
Beim nächsten Mal bitte angeben ob es sich um VB, VB.Net, VBa
(welche Excelversion) o.ä. handelt.
Gruß
Reinhard
Option Explicit
Sub tt1()
Dim Zei As Long
Application.ScreenUpdating = False
Zei = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:B" & Zei).Copy Range("C1")
Range("C1:smiley:" & Zei).Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlNo, \_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub
Sub tt2()
Application.ScreenUpdating = False
Range("A:B").Copy Range("C1")
Range("C:smiley:").Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlNo, \_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub
Hallo Reinhard,
herzlichen Dank für Deine Hilfe, hat super geklappt…
Gruß Achim