Office: (Office 2016) Wenn Bedingung erfüllt, Zeile in neues Blatt verschieben (VBA)

Hallo zusammen,
ich habe es über VBA Programmierung hinbekommen, das wenn ich eine Zeile unter Spalte "Erledigt" auf "Ja" setze das er mir diese in eine neues Blatt kopiert, funktioniert prima.
Nur würde ich es jetzt gerne auf dem neuen Blatt umgekehrt machen, das wenn einer aus Versehen Erledigt auf "Ja" gesetzt hat, das ich im neuen Blatt auf "Nein" setze, die Zeile wieder in das ursprüngliche Blatt zurück geschoben wird, entsprechend der KW.
Bekomme es leider selbständig nicht hin.
Bitte um eure Hilfe!

 

Hallo,

man kann einfache Dinge auch kompliziert machen. Da reicht doch eine Liste völlig aus, die kann man nach ja bzw. nein Filtern und alles ist OK.

 

Hallo

 

ja, das ist das Problem, so wie du vorschlägst funktioniert das nicht.
Das ist unsere interne Fertigungsliste, und sobald ein Teil gefertigt ist soll es von der Hauptseite verschwinden.
So sehen alle die fertigen Teile auf dem 2. Blatt.
Wie beschrieben kann der Fertigungsleiter oder einer seiner Mitarbeiter aus Versehen auf "Ja" setzen, dann ist der Eintrag weg.
Die Datei enthält im Laufe des Jahres mal um die 5000 Einträge.
Wäre nett wenn jemand helfen könnte.

Dankeschön

 

Hi Franky,

weshalb machst du es nicht mit einer Abfrage, ob die Daten verschoben werden sollen? Dann sparst du dir den ganzen Aufwand, Daten wieder zurück übertragen zu müssen. Ein "Ja" kann man versehentlich schnell mal setzen, aber eine danach erfolgende Abfrage sollte einen schon aufmerksam machen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lngErste As Long
    Dim strJaNein As String
    If Target.Column = 8 Then
        If Target.Count = 1 Then
            If UCase(Target) = "JA" Then
                strJaNein = MsgBox("Daten wirklich verschieben?", vbYesNo)
                If strJaNein = vbYes Then
                    With Worksheets("gefertigte Teile")
                        lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
                        .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
                        Rows(Target.Row).Copy
                        .Cells(lngErste, 1).PasteSpecial Paste:=xlValues
                        Rows(Target.Row).Delete shift:=xlUp
                    End With
                End If
            End If
        End If
    End If
End Sub

---

 

Hi Beverly,

die Lösung ist natürlich der Hammer!!

Ganz herzlichen Dank!