automatisch sortieren der Prio-Liste
Patty
Ich möchte meine Aufgabenliste von Excel automatisch sortieren lassen. Die Liste ist wie folgt aufgebaubt:
Spalte A: Priorität (1 - 3, wobei 1 wichtig und 3 unwichtig, bedingte Formatierung als Ampel 1=rot; 2=gelb; 3=grün)
Spalte B: Priorität (Formel: =WENN(UND(E7"";E7>$D$2);"WV";WENN(A7="";"";A7))
Spalte C: Freier Text
Spalte D: Freier Text
Spalte E: Wiedervorlage (Datumsfeld)
In Spalte A trage ich die Priorität meiner Aufgaben ein (1,2,3), in Spalte C+D trage ich meinen Aufgabentitel bzw. -erklärung ein. In Spalte E trage ich ein Datum ein, wenn ich diese Aufgabe nicht sofort erledigen möchte, sondern an einem anderen Tag. Wenn ich ein Wiedervorlagedatum eintrage, dann wird in Spalte B mit der Formel ein "WV" eingetragen, wenn dieses nicht gleich oder älter als das heutige Datum ist (Formel = Datum liegt in Zukunft, dann schreib WV in Spalte B; Datum heute ist in Zelle D2).
Die eigentliche Aufgabenliste beginnt ab Zeile 6 mit den Überschriften und in Zeile 7 mit der ersten Aufgabe.
Ich möchte nun das Excel bei jeder Änderung der Prioritäten (Spalte A) oder der Wiedervorlage (Spalte E, entweder Datum der WV ist heute oder früher, oder bei Datum entfernen) automatisch nach folgenden Kriterien sortiert:
1. => nach Spalte B aufsteigend (1,2,3,WV,leer)
2. => nach Spalte E aufsteigend (19.10., 20.10., 21.10., usw)
Es kommt auch vor, das ich eine Aufgabe lösche, wenn diese erledigt ist, indem ich die Werte aus A, C, D, E in der entsprechenden Zeile lösche. Die freien Zeilen sollten dann auch nach unten sortiert werden.
Leider bin ich ein absoluter NICHT-Könner in Sachen VBA+Makro aber ich habe mir aus dem Herbers Forum ein Makro kopiert und wie folgt hinterlegt:
Private Sub worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
Application.EnableEvents = False
With Worksheet
If Target "" And Target.Row > 3 And Target.Row 2 And Target.Column Kann mir hier geholfen werden?
Grüße,
Patty