ich bin zwar neu in diesem Forum, weiß aber durch ältere Beiträge, dass es garantiert Leute gibt, die eine Lösung kennen für folgendes Problem:
Durch eine Eingabemaske auf einer Seite übertrage ich Daten Zeilenweise an eine Tabelle auf einer anderen Seite. Diese ist gleichzeitig auch die "Sammeltabelle" für alle je gemachten Einträge. Wichtig für mein Problem sind dabei drei Spalten: -Störnummer (automatisch generiert), -Datum des Eintrags (dd/mm/yyyy hh:mm:ss) und der Status des Zustands ("offen", "in Bearbeitung" oder "erledigt".
Um jetzt einen Überblick über die tatsächlich "in Bearbeitung", "offenen" oder "erledigten" zu bekommen, lasse ich die "Sammeltabelle" auf ein weiteres Blatt übertragen.
Aktuellere Einträge mit der selben Störnummer aber einem anderen Status als "offen" oder "in Bearbeitung" sind unwichtig und sollen deshalb nicht mehr aufgelistet werden.
Deshalb lasse ich dann folgende Makros drüber laufen:
'Zeilenvergleich und -löschung -OFFEN-
Range("A5").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value _
And ActiveCell.Offset(0, 13).Value = "offen" _
Then ActiveCell.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Loop
'Zeilenvergleich und -löschung -IN BEARBEITUNG-
Range("A5").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value _
And ActiveCell.Offset(0, 13).Value = "in Bearbeitung" _
Then ActiveCell.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Loop
Auf den ersten Blick funktioniert das auch ganz gut. Leider habe ich das Problem, dass bis "Loop" alles richtig gemacht wird, dann aber im Ergebnis die letzten beiden Zellen vertauscht werden (gleiche Störnummer, aber Datum/Zeit entgegen der Anweisung absteigend sortiert, obwohl das Sortiermakro viel früher lief). Damit ist die Filterung natürlich nicht korrekt.
Woran kann das liegen, wer weiss Rat?
Schon vorab vielen Dank