Excel Hilfe / Makro Automatisch sortieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Excel Spezialisten, brauche eure Hilfe:...DANKE vorab schon mal
Excel kann ich einigermaßen ( Grundfunktionen)
Habe eine Liste angelegt in der man in Spalte B- Datum; C - Firma; D - Bezeichnug; E - Preis und G - Garantiezeit eintragen soll.
Nun zu meiner Frage:
Hätte gerne das nur die oben genannten Zellen für Eingaben frei sind, der Rest gesperrt ist( habe ich hin bekommen ) und das sich die Tabelle beim öffnen automatisch sortiert nach folgenden Kriterien:
Spalte B ( Datum ) dann C, D, E, F
aber es darf sich nur die ganze Zeile mit ändern.z.B. Zeile 7 müsste sich dann vor Zeile 6 sortieren, Zeile 5 nach Zeile 7.
Hilfsspalten zum berechnen O,P,Q werden sich wahrscheinlich automatisch sortieren..?
Das Blatt sollte geschützt sein und sich nur die hellgelb unterelegten Felder eintragen lassen, der Autofilter sollte auch funktionieren.
Über Eure Hilfe würde ich mich sehr freuen da ich mich mit Makros mal überhaupt nicht auskenne, also da bin ich leider eine Niete drin. Mit Makros und die Aktivierung dieser habe ich nichts am Hut also NULL Ahnung. Lade Tabelle mit hoch damit man sich ein besseres Bild davon machen kann. Es wäre nett wenn mir jemand das Makro soweit dies möglich ist in die Tabelle einfügen könnte.
Betriebssystem XP / Office 2007
PS: Liste wollte ich für mich nutzen um einen besseren Überblick über die gekauften Waren zu haben.
https://www.herber.de/bbs/user/56263.zip

Private Sub Workbook_Open() Dim i As Long With Tabelle1 .Unprotect "Hier dein Password eintragen" For i = 6 To 2 Step -1 .UsedRange.Sort Key1:=.Cells(2, i), Order1:=xlAscending, header:=xlYes Next .Protect "Hier dein Password eintragen" End With End Sub

Private Sub Workbook_Open() Dim i As Long With Tabelle1 .Unprotect "Hier dein Password eintragen" For i = 6 To 2 Step -1 .Range(.Cells(4, 1), .Cells(Rows.Count, 1).End(xlUp)).EntireRow.Sort _ Key1:=.Cells(4, i), Order1:=xlAscending, header:=xlNo Next .Protect "Hier dein Password eintragen" End With End Sub

Private Sub Workbook_Open() With Tabelle1 .Unprotect "Hier dein Password eintragen" With .Range(.Cells(4, 1), .Cells(Rows.Count, 1).End(xlUp)).EntireRow .Sort Key1:=Range("E4"), Order1:=xlAscending, _ Key2:=Range("F4"), Order2:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom .Sort Key1:=Range("B4"), Order1:=xlAscending, _ Key2:=Range("C4"), Order2:=xlAscending, _ Key3:=Range("D4"), Order3:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End With .Protect "Hier dein Password eintragen" End With End Sub

Hallo zusammen,
@rofu:
Beim Sortieren ist es nun mal so, dass das oberste Sortierkriterium immer, darunterliegende Sortierkriterien
hingegen nur dann zum Tragen kommen, soweit die Zellen nach den übergeordneten Kriterien gleich sind.
Dann sieht es schon mal so aus, als sei die Liste überhaupt nicht nach dem untersten Kriterium sortiert.
@Daniel:
Auch wenn es mehr als 3 Sortierkriterien sind, muss man nicht nach jedem Sortierkriterien einzeln sortieren.
Excel kann immer 3 Sortierkriterien auf einmal verarbeiten (in Version 2007 wohl auch mehr).
Hier mal ein Spielcode zum Testen auf einem leeren Tabellenblatt.
Sort1 und Sort3 haben dasselbe Ergebnis, Sort2 und Sort4 auch:


Sub SortFuenfSpalten()
Dim i As Long
Cells.ClearContents
With Range(Cells(1, 2), Cells(33, 6))
.Formula = "=INT(3*RAND())"
.Value = .Value
MsgBox "unsortiert"
.Sort Key1:=Range("E4"), Order1:=xlAscending, _
Key2:=Range("F4"), Order2:=xlAscending, header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.Sort Key1:=Range("B4"), Order1:=xlAscending, _
Key2:=Range("C4"), Order2:=xlAscending, _
Key3:=Range("D4"), Order3:=xlAscending, header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
MsgBox "nach Sort 1: B/C/D/E/F"
.Sort Key1:=Range("C4"), Order1:=xlAscending, _
Key2:=Range("B4"), Order2:=xlAscending, header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.Sort Key1:=Range("F4"), Order1:=xlAscending, _
Key2:=Range("E4"), Order2:=xlAscending, _
Key3:=Range("D4"), Order3:=xlAscending, header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
MsgBox "nach Sort 2: F/E/D/C/B"
For i = 6 To 2 Step -1
.Sort Key1:=Cells(1, i), Order1:=xlAscending, header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next i
MsgBox "nach Sort 3: B/C/D/E/F - Schleife"
For i = 2 To 6
.Sort Key1:=Cells(1, i), Order1:=xlAscending, header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next i
MsgBox "nach Sort 4: F/E/D/C/B - Schleife"
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Excel Hilfe / Makro Automatisch sortieren

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Hilfe / Makro Automatisch sortieren

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread