Automatisierte Prioritätenliste

Hallo zusammen,
ich stehe aktuell vor folgender Herausforderung:
Ich habe eine normale Excel Tabelle mit verschiedenen Aufgabenpunkten.
Nun sollen diese einzelnen Zeilen aber noch individuell von Dritten priorisiert werden.
Dafür gibt es eine Spalte "Priorität", in der die Werte 1 bis 30 (am besten per Dropdown) eingetragen werden können.
Gibt es eine Möglichkeit, dass erstens die Werte nur einmalig eingetragen werden können (also jede Priorisierung nur einmal). Und zweitens, dass sich die Zeilen automatisch in der Reihenfolge ihrer Priorisierung anordnen?
Also wenn ich jetzt in einer Zeile die Priorisierung auf "1" ändere, dass diese Zeile ganz nach oben springt ("2" and die zweite Stelle usw. ...).
Kann mir da vielleicht jemand weiterhelfen, bzw. ist sowas überhaupt machbar?
Danke & viele Grüße
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Thomas,
ich hab mittlerweile selbst "meine" Bsp-Datei "gebastelt".
Hier, guck mal:
https://c.gmx.net/@334256655850015599/MYQveJlhSg6rnOFE4PSGJA
Es handelt sich um eine Video-Datei (mp4), die Folgendes zeigt:
- als Bsp werden die Spalten A (Aufgabe) und Spalte b (Priorität) genutzt
- jede Zelle in Spalte B hat, wie gewünscht, eine Wert-Auswahlliste mit den Werten 1 (minimum) und 30 (Maximum)
- sobald in Spalte B ein Wert von 1 bis 30 ausgewählt wurde, wird die komplette Liste automatisch nach Spalte B, aufsteigend, sortiert
- wird in Spalte B ein Prio-Wert ausgewählt, der schon in einer anderen Zeile vorhanden ist, erscheint ein Hinweis, dass jeder Prio-Wert nur 1x ausgewählt werden darf; der doppelt ausgewählte Wert wird automatisch entfernt
- werden alle Werte in Spalte B wieder gelöscht, wird die komplette Liste jetzt aufsteigend nach Spalte A sortiert
Ok, der letzte Punkt ist vielleicht nicht gewünscht und kann natürlich aus dem Code entfernt werden, aber ich war gerad in "VBA-Bastel-Laune" :-)
So, jetzt wunderst du dich vielleicht, wieso ich dir nur einen Film zeige, wie es funktionieren kann und nicht gleich meine Bsp-Datei per Upload zur Verfügung stelle.
Na ja, ich weiß noch immer nicht, welche Zeilen/Spalten in deiner Datei genutzt werden.
Und ich möchte ja deine Bsp-Datei, die die gleichen Zeilen/Spalten wie in deiner Originaldatei nutzt, natürlich vom Code her anpassen.
Aber dafür benötige ich eben von dir eine Bsp-Datei per Upload mit Bsp-Daten.
Ciao
Thorsten

Private Sub Worksheet_Change(ByVal Target As Range) Dim lngZeileLast As Long Const SpalteSort As Long = 5 Const lngZeile1 As Long = 8 If Target.Column = SpalteSort And Target.Row >= lngZeile1 And Target.Cells.Count = 1 Then With Me lngZeileLast = .Cells(.Rows.Count, SpalteSort).End(xlUp).Row If lngZeileLast > lngZeile1 Then Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False .Range(.Rows(lngZeile1), .Rows(lngZeileLast)).Sort Key1:=.Cells(lngZeile1, _ SpalteSort), order1:=xlAscending, Header:=xlNo Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End If End With End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim lngZeileLast As Long Const SpalteSort As Long = 5 Const lngZeile1 As Long = 8 If Target.Column = SpalteSort And Target.Row >= lngZeile1 And Target.Cells.Count = 1 Then lngZeileLast = Cells(Rows.Count, SpalteSort).End(xlUp).Row If lngZeileLast > lngZeile1 Then Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False Range(Rows(lngZeile1), Rows(lngZeileLast)).Sort Key1:=Cells(lngZeile1, _ SpalteSort), order1:=xlAscending, Header:=xlNo Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End If End If End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread