mehrere Spalten Automatisch sortieren
24.04.2006 20:07:33
Klausi
wie kann ich mehrere Spalten Automatisch sortieren. Ich habe also 2,3 Spalten wo daten reinkommen, die sollen jetzt sortiert werden. Ich habe zwar einen code der wo klappt aber wenn ich eine andere Mappe öffne und mit der am Arbeiten bin wird genau diese sortiert wo die andere sortiert wurde. Kann mir jemand helfen den Code so zu ändern das nur die eine Tabelle in der Mappe Automatisch sortiert wird.
Gruß Klausi.
Hier der Code !!!
'Den Code in Die Tabelle die du Sortieren willst
Private Sub Workbook_Open()
Dim NextTime
Application.StatusBar = "Zeit: " & Format(Time, "hh:mm:ss")
NextTime = Now + TimeValue("00:00:15")
Application.OnTime NextTime, "sortieren"
End Sub
'Den Code in ein Modul einfügen
Sub sortieren()
Dim NextTime
NextTime = Now + TimeValue("00:00:15")
Dim Bereich As Range
Dim Bereichb As Range
Set Bereich = Sheets("Tabelle2").Range("V4:V2000")
Set Bereichb = Sheets("Tabelle2").Range("W4:W2000")
Bereich.Sort Key1:=Range("V4"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Bereichb.Sort Key1:=Range("W4"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Application.OnTime NextTime, "sortieren"
End Sub
Anzeige