Aufgabenliste autom. sortieren und neue Aufgaben anlegen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nils,

wenn Du ganz frisch bei dem Thema bist, vielleicht kann ich dich von schlechten Gewohnheiten wegbringen, bevor diese sich bei Dir als "normal" einbrennen:
trenne die Datenhaltung und die Präsentation auseinander: Excel leitet sehr gern, die beide zu vermischen. So auch deine Datei. Es ist aber wesentlich leichter, eine einfache Liste zu speichern und aktuell zu halten, dann daraus eine schöne, separate Präsentation zu machen, als Daten anzufassen, wenn diese wild über den Bildschirm verteilt sind.

Eigentlich wäre deine Aufgaben: liste alle Information in eine Liste (als Tabelle, Menü "Einfügen", "Tabelle"), wo jede Spalte nur eine Info hat: Mitarbeiter, Due Date, Fertigungsgrad, usw.
Dann eine Makro aufstellen (Try&Error), die aus der Liste eine komplett neue Bericht (der alte kann bestehen bleiben) herstellt.

Vorteil: deine Liste ist sortierbar, filterbar, schnell erweiterbar.
Möchtest Du etwas an der Präsentation ändern, musst Du nur den Prozess der Berichterstattung anfassen. Null Rücksicht auf was vorher da war. 5 neue Version in eine Stunde? kein Problem. Due Date über Progress? kein Problem. Oder doch nicht, bitte zurückdrehen. Kein Problem.

Selber damit anfangen? kein Problem. Aktion unter laufenden Makro-Rekorder machen, Code anschauen, anpassen. Probieren (in dem Fall machst Du nicht kaputt, weil alles auf eine neue Blatt).
Vielleicht wirst Du dabei entdecken, dass den schönen Bericht gar nicht brauchst. Auf alle Fälle bist Du mit der Liste sofort arbeitsfähig und die Weiterentwicklung laufen parallel.

Wenn es auf dem Weg zum Ergebnis hier und da klemmt, einfach einen neuen Post im Forum. Für punktuelle Unterstützung bekommst Du immer schneller Hilfe, als bei einer kompletten Auftragsprogrammierung.

Viel Erfolg

VG
Yal

Sub MA1_neue_Aufgabe() Dim last As Integer 'Vorlage kopieren Range("U17:W25").Select Selection.Copy 'Variable zur letzten vollen Zelle +1 zuweisen (erste leere Zelle) last = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(last, 1).Select 'Vorlage einfügen ActiveSheet.Paste End Sub

Es passiert gerade nicht viel auf dem Forum, deswegen komme ich darauf, eine Lösung im besagten Model-View-Controller Pattern zu herstellen.

Der gesamte Code (in Modul1):

Sub Übertragen()

Dim LO As ListObject

Dim LR As ListRow

Dim MA As Long

Dim Zelle1 As Range



    With Worksheets("Aufgabenverteilung")

    'Bereinigen

        .Range("A2:S3000").UnMerge

        .Range("A2:C300,E2:G300,I2:K300,M2:O300,Q2:S300").Clear

    'Sortieren nach Datum

        tblDaten_sortieren

    'Übertragen

        Set LO = ActiveWorkbook.Worksheets("Daten").ListObjects("tblDaten")

        For Each LR In LO.ListRows

            MA = CLng(Trim(Split(LR.Range(1).Value)(1))) 'default

            If LR.Range(5).Value = 100 Then MA = 5 'abgeschlossene Task

            Set Zelle1 = .Cells(Rows.Count, (MA - 1) * 4 + 1).End(xlUp).Offset(1, 0)

            .Range("Vorlage").Copy Zelle1

            Zelle1.Value = "Task: " & LR.Range(2).Value 'Feld Task (2te SPalte von tblDaten)

            Zelle1.Offset(1, 0).Value = "Description: " & LR.Range(3) 'Description, 3te Spalte

            Zelle1.Offset(7).Offset(, 1).Value = LR.Range(5) ' Progress

            Zelle1.Offset(7).Offset(, 2).Value = LR.Range(1) 'Mitarbeiter

            Zelle1.Offset(8).Offset(, 1).Value = LR.Range(4) 'Due Date

        Next

    End With

End Sub



Sub tblDaten_sortieren()

    With ActiveWorkbook.Worksheets("Daten").ListObjects("tblDaten").Sort

        .SortFields.Clear

        .SortFields.Add2 Key:=Range("tblDaten[[#All],[Due Date]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Sub

Änderungen:
Die Vorlage habe ich als "Vorlage" benannt (benannte Bereich)
Es gibt ein Blatt Daten, darin eine Tabelle (Menü "Einfügen", "Tabelle") mit Name "tblDaten". Im MVC-Pattern das "Model".
Darin werde alle Daten erfasst, geändert. Die kann beliebig sortieren, filtern, ausdrucken, kopieren, usw.

Der Aufruf (Alt+F8) der Makro "Übertrage" (der "Controller") löscht -fast- alles auf dem Blatt "Aufgabenverteilung" ("View") und stelle sie komplett neu. Man könnte noch eine Schaltfläche einrichten.
Jetzt verbringe ein paar Tage mit "deiner" Lösung, dann ein paar Tage mit diese. Dann Fazit ziehen.

Die Logik in der "Controller" (Makro "Übertrage") ist soweit nachvollziebar, dass Anpassungen selber vorgenommen werden können. Da in der "Vorlage" verbundene Zellen sind, muss man mit dem komischen .Offset(Zeile).Offset(,Spalte) arbeiten.

https://www.herber.de/bbs/user/163855.xlsm

VG
Yal

Sub Abgeschlossene_Aufgaben_Verschieben() Dim Zelle As Range Do Set Zelle = Range("A:O").Find(what:="100", lookat:=xlWhole, LookIn:=xlFormulas) If Zelle Is Nothing Then Exit Do Zelle.Offset(-7, -1).Resize(9, 3).Cut Destination:=Cells(Rows.Count, "Q").End(xlUp).Offset(1, 0) Loop End Sub

Sub Leerstellen_Schließen() Dim ar As Range, col As Long For col = 1 To 13 Step 4 For Each ar In Columns(col).SpecialCells(xlCellTypeBlanks).Areas If ar.Columns.Count = 1 Then ar.Resize(, 3).Delete shift:=xlUp Next Next End Sub

Sub Aufgabe_Hinzufügen() Dim Zelle As Range With Range("U17:W25") Set Zelle = Rows(1).Find(what:=.Cells(8, 3), lookat:=xlWhole) If Zelle Is Nothing Or .Cells(8, 3).Value = "" Then .Cells(8, 3).Select MsgBox "Bitte Mitarbeiter auswählen" Else .Copy Cells(Rows.Count, Zelle.Column).End(xlUp).Offset(1, 0) .Cells(1, 1).Value = "Task:" .Cells(2, 1).Value = "Discription:" .Cells(8, 3).Value = "" .Cells(9, 2).Value = "" End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Aufgabenliste autom. sortieren und neue Aufgaben anlegen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aufgabenliste autom. sortieren und neue Aufgaben anlegen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread