Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile löschen, wenn nicht bestimmter Wert vorhande

Zeile löschen, wenn nicht bestimmter Wert vorhande
11.11.2015 13:42:33
Gavri
Hallo zusammen,
ich habe eine Tabelle mit ca. 58 - 63 Tsd Zeilen. Es sollen alle Zeilen gelöscht werden, die nicht "FRA" in Spalte S stehen haben.
Ich habe folgenden Code im Internet gefunden, damit dauert es sehr lange. Kann man diesen beschleunigen?
Dim i As Long
Dim letzteZeile As Long
letzteZeile = Range("B65536").End(xlUp).Row
For i = letzteZeile To 2 Step -1
If Cells(i, 19).Value "FRA" Then
Rows(i).Delete Shift:=xlUp
End If
Next i

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile löschen, wenn nicht bestimmter Wert vorhande
11.11.2015 14:14:32
Sepp
Hallo Gavri,
warum nicht einfach auf < > FRA Filtern und die Zeilen löschen?
Gruß Sepp

AW: Zeile löschen, wenn nicht bestimmter Wert vorhande
11.11.2015 14:14:40
Michael
Hi Gavri,
sortiere die Daten zuerst nach der Spalte S (und evtl. einer weiteren), dann kannst Du alle Zeilen ohne "FRA" in einem (bzw. zwei) Rutsch(en) rauslöschen.
Wenn die ursprüngliche Sortierung wichtig für Dich ist oder anderweitig nicht mehr hergestellt werden kann, legst Du "rechts außen" noch eine Hilfsspalte an, die mit 1 bis ca. 60000 durchnummeriert ist - nach dem Löschen der Zeilen kannst Du dann noch einmal nach der Hilfsspalte sortieren, dann ist sie wie zuvor.
Excel sortiert sehr schnell, d.h. die ganze Geschichte sollte in 1, 2 Sekunden erledigt sein.
Wenn Du eine abgespeckte, anonymisierte Beispieldatei hochlädst, kann ich Dir die Funktion einbauen.
Wenn Du verstehen willst, was passiert, kannst Du die Geschichte auch mal händisch machen und mit dem Makrorekorder aufzeichnen.
Schöne Grüße,
Michael

Anzeige
AW: Zeile löschen, wenn nicht bestimmter Wert vorh
11.11.2015 15:14:59
Gavri
Hallo Sepp,
entweder ich verstehe dich grade nicht oder du mich.
Wenn ich nach FRA Filter, dann kann ich doch nur diese löschen, aber FRA will ich behalten und die anderen löschen
@Michael
mit dem sortieren habe ich gemacht. Es ist auch deutlich schneller, aber dauert immer noch ca 2,5 Minuten. Gibt es noch eine andere Möglichkeit die Abarbeitung zu beschleunigen.
Gruß
Gavri

Sag ich doch: bitte Datei owT
11.11.2015 15:24:03
Michael

AW: Sag ich doch: bitte Datei owT
11.11.2015 15:43:16
Gavri
Hallo Michael,
anbei eine kleine Beispieldatei.
https://www.herber.de/bbs/user/101416.xlsx
Gruß
Gavri

Anzeige
na also!
11.11.2015 16:12:32
Michael
Hi Gavri,
ich habe den Autofilter abgeschaltet, die Spalte S sortiert und das folgende Makro gestartet: 
Sub rausMit()
Dim i As Long
Dim letzteZeile As Long, ab As Long, bis As Long, erster As Long
Dim c As Range
letzteZeile = Range("S" & Rows.Count).End(xlUp).Row
' hier ggf. Code zum Sortieren einfügen
With ActiveSheet.Range("S2:S" & letzteZeile)
Set c = .Find("FRA")
If Not c Is Nothing Then
'MsgBox c.Row
ab = c.Row
erster = ab
Set c = .FindPrevious(c)
'  MsgBox c.Row
If c.Row > ab Then
ab = c.Row + 1
Rows(ab & ":" & letzteZeile).Delete Shift:=xlUp
End If
If erster > 2 Then
Rows("2:" & erster - 1).Delete Shift:=xlUp
End If
End If
End With
End Sub

Spürbare Zeit: 0, bei immerhin knapp 1000 Datensätzen.
Schöne Grüße,
Michael

Anzeige
AW: na also!
11.11.2015 17:08:06
Gavri
Hallo Michael,
das funktioniert echt super schnell.
Vielen Dank und noch eine schöne Woche
Gruß
Gavri

so musses sein, danke für die Rückmeldung
11.11.2015 17:41:43
Michael
und auch ne schöne Woche,
happy exceling,
Michael

AW: Zeile löschen, wenn nicht bestimmter Wert vorh
11.11.2015 15:39:21
EtoPHG
Hallo Gavri,
Bei Excel gut sollte man wissen, dass man auch nach IST NICHT GLEICH filtern kann. Genau das hat Sepp mit gemeint!
Gruess Hansueli

AW: Zeile löschen, wenn nicht bestimmter Wert vorh
11.11.2015 17:09:52
Gavri
Hallo Hansueli,
die Methode habe ich getestet. Ist aber auch deutlich langsamer als die vom Michael.
Vielen Dank für die Unterstützung an alle.
Gruß
Gavri

323 Forumthreads zu ähnlichen Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Zeile löschen , wenn doppelt, Makro ?
walli

Hallo zusammen,
hatte vorhin geschrieben, leider nicht mehr im Forum.
Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
diese Doppelte dann von A-M löschen.
Das Ende der Tabelle kann von A6 bis 500 ode...
24.06.2009 12:45:17
Thread-ID: 1084084
4 Beiträge
Zeilen löschen wenn ...
Marion65

Hallo zusammen,
habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
Gruß Marion
https://www.herber.de/bbs/user/62728.xls
Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
Sub BegriffSuchenZeilenLoesc...
24.06.2009 20:27:47
Thread-ID: 1084196
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
5
7
2
3
7
4
3
7
9
4
3
6
10
8
4
7
4
8
15
9
11
3
8