Zeilen nach Erledigung verschieben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Moritz
würde es dir reichen, wenn ich dir nur die halbe Lösung zeige?
Oder magst du uns per Upload eine Bsp-Datei mit Bsp-Daten dort zeigen, wo diese vorkommen können?
Und dann wären noch n paar mehr Details zum Status "wann sind 100% erreicht?" schön.
Ja, ich weiß, die Überschriften "sprechen doch Bände"...
a) für dich auf jeden Fall - DU kennst ja alle Hintergründe....zumindest ich tu mich mit "Bänder lesen" etwas schwerer
b) na ja, zusätzlich bin ich nich so sehr daran interessiert, mich erst mal durch alles durchlesen zu müssen, weil hilfreiche Erklärungen fehlen - und das Ganze mit der Gefahr, dass ich entweder nich alles oder einiges/alles falsch verstehe
Ciao
Thorsten

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 5 Then If .Value = 1 Then Application.EnableEvents = False Sheets("Erledigt").Range("E" & Rows.Count).End(xlUp).Offset(1).EntireRow = .EntireRow.Value .EntireRow.Delete Application.EnableEvents = True End If End If End With End Sub

Hallo Thorsten,
bitte entschuldige, da war ich dann wohl wirklich etwas zu vorschnell bzw. habe die an sich ja sehr simpel gehaltene Liste für selbsterklärender gehalten als sie ist.
Grundsätzlich ist das eine deutlich abgespeckte Version meiner alten beruflich genutzten Projektmanagements-Liste, die ich für den privaten Bereich nutzen möchte, weil die Aufgaben inzwischen etwas mehr und komplexer geworden sind als dass ich sie einfach nur als bullet points in ein Word-Dokument klatschen möchte. Trotzdem möchte ich da jetzt keine Wissenschaft draus machen, sondern befülle die Felder einfach grob manuell je nach gefühltem Fortschritt in 10%-Schritten. Wenn ein Thema (für mich) erledigt ist, setze ich die 100% durch direkte Dateneingabe in das entsprechende Feld in Spalte E. Und dann sollte - so hatte ich es früher schon einmal ergoogelt, die gesamte Zeile der erledigten Aufgabe aus der Liste im ersten Blatt rausgenommen und auf das zweite Blatt "erledigt" verschoben werden (ans Ende gesetzt werden). Wenn die erledigte Aufgabe im ersten Blatt nicht am Ende sondern irgendwo mittendrin stand, sollten die Folgezeilen nachrücken, sodass keine Leerzeile entsteht. Hilft das fürs Verständnis weiter?
Die echten Daten hatte ich vor dem Upload alle aus der Tabelle entfernt, weil es im Grunde keine Rolle spielt. Maßgeblich ist, dass zu irgendeinem von mir definierten Zeitpunkt ein Thema manuell als "100%" abgeschlossen definiert wird und dann automatisch verschoben werden sollte (sobald der Wert "100%" geschrieben wurde, nicht per Button oder erst beim Speichern oder so). Ich weiß, dass es eigentlich ganz simpel ist, ich hatte im ersten Anlauf vor ein paar Jahren eine online gefundene Lösung 1:1 übernehmen können (nach Anpassung des Verweises auf die für mich relevante Spalte). Aber irgendwie stehe ich auf dem Schlauch.

Beliebteste Forumthreads (12 Monate)

Zeilen nach Erledigung verschieben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen nach Erledigung verschieben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread