Automatisierte Prioritätenliste

Thomas · 2018-04-04T09:05:51+00:00

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

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

Hallo nochmal,
ich antworte jetzt einfach hier, da der Beitrag, aus dem ich den Code habe, von 2008 ist...
Ich habe den VBA Code für meine Tabelle angepasst und die automatische Sortierung hat auch geklappt.
Jetzt habe ich die Datei zum Testen an jemand anderen geschickt und dort kam beim Ändern der Priorisierung folgender Fehler:
Laufzeitfehler '1004':
Die Sort-Methode des Range-Objektes konnte nicht ausgeführt werden.
Der Debugger zeigt folgendes (fett markierte Zeilen):

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

Schaffe es aktuell nicht dieses Problem zu beheben.
VG
Thomas

Beispiel einer Prioritätenliste:	Aufgabe	Priorität
Aufgabe 1	2
Aufgabe 2	1
Aufgabe 3	3

Forumthread: Automatisierte Prioritätenliste

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial