Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrere Spalten Automatisch sortieren

mehrere Spalten Automatisch sortieren
24.04.2006 20:07:33
Klausi
Hallo Excel-Profis
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Spalten Automatisch sortieren
24.04.2006 22:36:02
Tassos
Hallo Klausi,
Set Bereich = ThisWorkBook.Sheets("Tabelle2").Range("V4:V2000") 'oder
Set Bereichb = ThisWorkBookSheets("Tabelle2").Range("W4:W2000") 'WorkBook(NameDerNappe)
Gruss
Tassos
AW: mehrere Spalten Automatisch sortieren
25.04.2006 11:23:53
Klausi
Hi Tassos
ich habs versucht beivder einen Variante ist es wie vorher auch. sobald ich eine andere Mappe öffne und mit der Arbeite versucht der Code die Mappe zu sortieren die angezeigt wird. Wenn ich dann auf Debuggen gehe wird dieser Bereich gelb. Nur bei der zweiten Mappe die nicht sortiert werden soll.
Bereich.Sort Key1:=Range("V4"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Die andere Variante bekomme ich garnicht geschrieben. Ich weis nicht ob ich einen fehler gemacht habe oder nicht. Ich hoffe du kannst mir helfen.
Gruß Klausi
Anzeige
AW: mehrere Spalten Automatisch sortieren
25.04.2006 18:39:06
Tassos
Hallo Klausi,
Damit durfte funktionieren:

Sub sortieren()
Dim NextTime, Bereich As Range, Bereichb As Range
NextTime = Now + TimeValue("00:00:15")
Set Bereich = ThisWorkbook.Sheets("Tabelle2").Range("V4:V2000")
Set Bereichb = Bereich.Offset(, 1)
Bereich.Sort Key1:=Bereich.Parent.Range("V4"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Bereichb.Sort Key1:=Bereich.Parent.Range("W4"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Application.OnTime NextTime, "sortieren"
End Sub

Schöne Grüsse
Tassos
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige