Office: (Office 365) Zeilen verschieben/löschen wenn Bedingung erfüllt wurde

Hallo liebe gemeinde
ich hab leider das problem, das ich kein gescheites makro hinbekommen in meiner Excel.
Ich hätte gerne das wenn in Spalte G der Wert "Picked UP" ausgewählt wird, diese Zeile in das Blatt "PickedUp" verschoben wird und gleichzeitig im Blatt "Container" gelöscht wird. Vielleicht kann mir jemand von den Erfahrenen einen Tipp geben wie so ein Code aussehen könnte? Ich wäre für jeden Hilfe dankbar.

 

Hi,

lass dir von einem Erfahrenen sagen, dass man so etwas gar nicht macht. Es gibt überhaupt keinen Grund einen Eintrag in ein anderes Blatt zu schieben, nur weil sich ein Status geändert hat.
Wenn man das Blatt "PickedUp" sehen möchte, dann nutzt man einfach den Autofilter und wählt in der Spalte "Status" den Eintrag "PickedUp" aus.

 

Hm, ok
es sollen halt mehrere Parteien mit dieser Datei gleichzeitig arbeiten, wobei das PickedUp Blatt eher für die Abholer sein soll, damit die nachträglich noch die Siegel checken können.
Aber gut, ihr habt mehr erfahrung, wenn es besser mit Filter ist, arbeiten wir mit Filter.
Trotzdem danke!

 

Hi,

es gibt natürlich noch mehr Möglichkeiten. Aber keine davon braucht ein Kopieren und Löschen von Daten.

- wenn das Einstellen eines Filters zu Umständlich ist, dann kann man die Filtereinstellung auch als benutzerdefinierte Ansicht speichern und diese dann wieder Abrufen. Wenn man will, kann man diesen Abruf auch auf einen Button legen.

- man kann das Blatt PickUp beibehalten und schreibt in A1 und A2 die Formeln
A1: =Container!A1:I1
A2: =FILTER(Container!A:I;Container!G:G="Picked Up")
bei der Formel in A2 werden alle Zelle, die leer sind, als 0 angezeigt. Wenn diese Null stört, kann man sie entweder über das Zahlenformat "Standard;-Standard;;@" (ohne die "-Zeichen) oder in den Optionen unterdrücken. oder man verwendet folgende Formel:
A2: =LET(x;FILTER(Container!A:I;Container!G:G="Picked Up");WENN(x=0;"";x))

Aber nochmals: Zeilen aufgrund eines Status kopieren macht man nicht.

 

Hi,

es macht unter Umständen durchaus Sinn, nicht mehr benötigte Daten in ein eigenes Blatt zu verschieben - unter der Bedingung, dass die Daten nicht als Vergleich zu den aktuellen Daten benötigt werden "verschlankt" man dadurch nämlich die eigentlichen Daten, mit denen man tagtäglich arbeitet. Auch der Autofilter muss nicht jedesmal wieder neu gesetzt werden wenn neue Daten hinzukommen.

Mit folgendem Code kannst du die gewünschten Daten in das Blatt "PickedUP" verschieben:

Code:

Sub Verschieben()
    Dim lngLetzte As Long
    Dim lngZeile As Long
    Dim lngZiel As Long
    lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
    lngZiel = Worksheets("PickedUp").Cells(Rows.Count, 1).End(xlUp).Row + 1
    For lngZeile = lngLetzte To 2 Step -1
        If Cells(lngZeile, 7) = "Picked UP" Then
            With Range(Cells(lngZeile, 1), Cells(lngZeile, 9))
                .Copy Worksheets("PickedUp").Cells(lngZiel, 1)
                .Delete
            End With
            lngZiel = lngZiel + 1
        End If
    Next lngZeile
End Sub

---