Office: (Office 2013) Tabellenblatt automatisch sortieren

Hallo zusammen,

ich will, dass Daten auf einem Tabellenblatt automatisch sortiert werden, sich also nach jeder Eingabe ohne weiteren Anstoß direkt in die gewünschte Reihenfolge begeben.

Auf dem Blatt stehen in Spalte A Namen und in den Spalten B und C jeweils ein Datum für jede Spalte (Anfangs- und Enddatum).

Ich möchte, dass zuerst nach dem Enddatum (Spalte C) und als zweites Kriterium nach dem Anfangsdatum (Spalte B) sortiert wird.

Probiert habe ich es mit einem Makro, wobei ich folgendes eingegeben habe, was aber nicht funktioniert:

Sub Automatische_Sortierung()
'
' Automatische_Sortierung Makro

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A:IV").Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
End Sub

Excel meldet einen Kompilierungsfehler bezogen auf das erste Sub... Auch stimmen sicher die Indizes nicht...

Vielleicht kann mir ja einer helfen, ich würde mich sehr freuen.

:)

 

Die "umschließende" Sub Automatische_Sortierung() wird nicht benötigt.

Code:

In diesem Teil
Code:

Excel NIEMALS raten lassen - das geht meist schief.

Setze den Wert auf xlYes oder xlNo, je nachdem, ob eine Kopfzeile vorhanden ist (die NICHT mitsortiert werden soll) oder nicht.

 

Vielen Dank, ich werde mal weiter probieren. Noch bekomme ich das Makro nicht dahin, wo es hin soll... Gegebenenfalls frage ich später noch einmal nach.

 

du sprichst in Rätseln... *wink.gif*

 

Ich habe folgendes Problem:

1. Ich öffne die Datei
2. Ich gehe auf das Tabellenblatt, in welchem das Makro ausgeführt werden soll.
3. Ich wähle den Bereich "Entwicklertools" aus.
4. Ich wähle "Makros" und sehe das Makro "Automatische_Sortierung"
5. Bearbeiten
6. Dort steht der von mir oben gepostete alte, falsche Code.
7. Ich füge den von EarlFred geschriebenen Code mit Copy-Paste ein und füge in der Header-Abfrage noch ein Yes ein.
8. Ich schließe das Fenster rechts oben mit dem Kreuz.

...und hier fängt das Problem an. Wenn ich jetzt den Bereich Makros erneut anwähle, ist das Makro nicht mehr da...

Daher meine Aussage/Frage, dass ich den Code nicht an die richtige Stelle bekomme... Wo ist der Fehler bzw. was muss ich machen, damit dann das Makro auch automatisch ausgeführt wird? Ich bin sicher nur zu blöd...*tongue.gif*

 

Was meinst du mit „Bereich“? Die Liste, die du auch bei Alt+F8 siehst? Da tauchen Private-deklarierte Makros und Makros mit Argumenten nicht auf. Die Ereignisprozedur muss da auch nicht stehen, um zu starten.

 

Guten Morgen,

leider bekomme ich es nicht hin. Ich habe einmal eine Datei angehangen, in der die Daten automatisch sortiert werden sollen (Spalte C absteigend, 2. Kriterium Spalte B absteigend).

Leider gelingt es mir nicht, den oben genannten Code einzufügen, so dass die Sortierung automatisch bei Eingabe von Daten erfolgt...

 

1. Ich öffne die Datei
2. Ich gehe auf das Tabellenblatt, in welchem das Makro ausgeführt werden soll. Rechtsklick auf den Tabellenreiter "Übersicht", dort im Menü "Code anzeigen" wählen
3. Ich wähle den Bereich "Entwicklertools" aus.
4. Ich wähle "Makros" und sehe das Makro "Automatische_Sortierung"
5. Bearbeiten
6. Dort steht der von mir oben gepostete alte, falsche Code.
7. Ich füge den von EarlFred geschriebenen Code mit Copy-Paste ein und füge in der Header-Abfrage noch ein Yes ein.

[Der Code steht dann in dem Codemodul mit dem Namen "Tabelle1 (Übersicht)".]

8. Ich schließe das Fenster rechts oben mit dem Kreuz.

Da Du, entgegen der bisherig anzunehmenden Umstände, nicht nur eine Kopfzeile hast sondern in den Zeilen 1:2 noch irgendein Zeug steht, der nicht zur Datenliste gehört, darfst Du unter keinen Umständen den Sortierbereich so belassen, wie er ist! Die KOPFZEILE ist exakt die erste Zeile des zu sortierenden Bereichs - keine Zeile mehr oder weniger.

Code:

 

Vielen vielen Dank, jetzt hat funktioniert. Du bist wirklich super!!!!