Clever-Excel-Forum

Meine lieben Freunde

Ich habe ein Problem, das mich nicht loslässt. In riesigen Dateien (200'000 bis 500'000 Zeilen) muss ich Zeilen löschen, die einen bestimmten Eintrag (Beurteilung = OK) in einer Spalte haben. Ich wollte eigentlich alle Zeilen mit dem Kriterium selektieren oder filtern und dann alle miteinander löschen. Aber ich habe das nicht hingekriegt. Die Vorgehensweisen in den schlauen Büchern und in Excel-Foren funktionieren alle nicht. :22:

Damit es wenigstens funktioniert, gehe ich nun zu Fuss und lösche jede Zeile einzeln. Da mehrere Zeilen immer zusammengehören und der wesentliche Eintrag auf der 1. Zeile des Blocks gemacht wird und dann nach unten übernommen wird, muss ich die Zeilen von unten her löschen. Der Prozess so dauert aber eeeewig und mir schläft das Gesicht ein dabei.

Der Code (Ausschnitt) sieht folgendermassen aus:


Ein kleines Beispiel habe ich beigefügt. Es geht um die Spalte T, in der der zu suchende Text ist. [attachment=14420] 

Kann mir jemand helfen? Vielen Dank im Voraus.

Viele Grüsse aus der kalten Schweiz
Rodlof

Hallo,

für eine einmalige Aktion erscheint mir ein Ansatz von Hand geeignet:

- falls die jetzige Reihenfolge wichtig ist, in der ersten leeren Spalte "=zeile()" und mit autofill/doppelklick auf den ganzen Datensatz anwenden. Mit copy/ paste value die Formeln durch Werte ersetzen.

- in der nächsten leeren Spalte die Formel
=links(T5, 2) = "ok"

und ebenfalls mit doppellklick auf alle Zeilen anwenden
Danach nach dieser Spalte sortieren und alle "wahr" Zeilen löschen. Erneut nach der Spalte mit den ursprünglichen Zeilennummern sortieren.

mfg

Moin,
ich bin mir nicht sicher, ob die kompletten OK-Blöcke gelöscht werden sollen oder jeweils die erste Zeile stehen bleiben soll. 
What ever, es geht mit Power Query rasch und zuverlässig.

Hallo 

Wow! geht das fix hier!

Also die Reihenfolge ist schon wichtig, die muss beibehalten werden. Es ist auch keine einmalige Aktion. es sind mehrere Files und ich habe das letztes Jahr so gelöst mit den Einzelschritten. Nun trifft mich das Problem wieder und ich habe gedacht, dass ich es diesmal besser machen wollte.

Es müssen alle Zeilen mit "OK..." gelöscht werden. Die Beurteilung erfolgt auf der ersten Zeile eines Blocks, diese wird für alle in diesem Block dann mit einer absoluten Formel (auch per VGA eingetragen) auf alle Zeilen des Blockes angewandt. Die erste Zeile, die ich nicht löschen darf, ist die wirklich erste Zeile des gesamten Files unterhalb des Headers. Die kann ich nicht löschen, weil ich darauf Formeln verlinkt habe, die ich dann relativ auf die anderen Zeilen anwende (auch per VBA). 

Nun, was meinst du denn mit mit Power Queries?

Viele Grüsse und danke vielmals
Rodlof

Moin,
dann sollte das angehängte File das Wunschergebnis enthalten.
Mit Power Query in wenigen Sekunden und (nur) einigen Mausklicks erledigt.

Lieber Günther

Vielen Dank für die schnelle Antwort. Das File enthält tatsächlich das gewünschte Resultat. Allerdings muss ich hier mit den Standard Werkzeugen von Excel arbeiten. Power Query ist nicht vorgesehen.

Vielleicht hat ja noch jemand eine gute VBA Lösung parat?

Viele Grüsse
Rodlof

Moin Rodolf,
ich weiß, dass ich gehässig bin   Power Query, -> http://www.excel-ist-sexy.de/power-query-das-add-in/ ist ein Standard-Add-In für Excel von MS!
Was ich allgemein über selbstherrliche IT-ler denke siehe hier. Traurig, traurig, dass gerade in solch einer Phase der Umwälzung denjenigen, die am Ende der Nahrungskette sitzen auch noch das letzte Fleisch vom Knochen abgeschabt wird ...

Vielleicht hilft dir ja dieser Link etwas weiter ... : http://www.excel-ist-sexy.de/transponieren-spezial/

Hallo Rodlof,

(15.11.2017, 10:07)rodlof schrieb: [ -> ]Vielleicht hat ja noch jemand eine gute VBA Lösung parat?

hier eine Variante, die die Liste per erweitertem Filter (früher Spezialfilter) in ein neues Blatt filtert:

Sub ListeFiltern()

 Dim oWs As Worksheet

 Dim rngQ As Range

 

 Set rngQ = ActiveSheet.Range("A4")

 Set rngQ = Range(rngQ, rngQ.SpecialCells(xlLastCell))



 Set oWs = Worksheets.Add(After:=rngQ.Parent)

 rngQ.Rows(1).Copy oWs.Cells(1)

 oWs.Cells(2, rngQ.Columns.Count).Formula = "<>OK*"

 

 rngQ.AdvancedFilter _

    Action:=xlFilterCopy, _

    CriteriaRange:=oWs.Cells(1).Resize(2, rngQ.Columns.Count), _

    CopyToRange:=oWs.Cells(4, 1), _

    Unique:=False

    

 oWs.Rows("1:3").Delete

End Sub

Gruß Uwe

Hallo Uwe
Vielen Dank erst Mal für deinen Lösungsansatz. Das werde ich ausprobieren und gebe wieder Bescheid.
Liebe Grüsse
Rodlof

Lieber Günther
Ja, ich habe deinen Blog gelesen. Tut mir leid wenn du enttäuscht bist von dieser neuen Welt.

Zu PQ: Ich arbeite beim Kanton und ich bin schon froh, dass ich überhaupt die Erlaubnis habe, VBA ausführen zu dürfen. Für ein zusätzliches Add In müsste ich hier zuerst Himmel und Hölle bewegen, damit eine Ausnahme gewährt werden kann. Aber ev. warte ich einfach auf die neue Version 2016, die wir ja auch irgendwann einführen werden. Das kann aber noch dauern. Ich kann dann nur hoffen, dass nicht alle Zusatzfunktionen gesperrt werden.

Du siehst, auch andere Menschen haben mit der Realität zu kämpfen.
In diesem Sinne viele Grüsse und Kopf hoch
Rodlof