Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filtern nach Werten und löschen

Forumthread: Filtern nach Werten und löschen

Filtern nach Werten und löschen
26.03.2019 11:51:44
VSVMAR
Hallo Leute,
ich bräuchte einmal eure Hilfe bei einem VBA Makro.
Folgendes Problem: Ich habe eine Tabelle mit Spalten von A - W. In Spalte D möchte ich nach allen Werten filtern, die nicht mir 3 , 8 oder AB beginnen. Alle Zeilen und Spalten die danach noch angezeigt werden, sollen gelöscht werden. Die Länge der Tabelle kann dabei variieren.
Wie kann ich das Umsetzen so das das Makro unabhängig von der Tabellenlänge alle Positionen erfasst und anschließend löscht? Idealerweise soll die Selektierung danach aufgehoben werden und wieder die ganze Tabelle zusehen sein.
Vielen Dank für eure Hilfe.
VSVMAR
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie wärs mit einer Beispiel-AM?
26.03.2019 12:31:19
Herbert
,,
AW: Filtern nach Werten und löschen
26.03.2019 12:55:34
Günther
Moin,
da bietet sich eine Hilfsspalte mit der LINKS()-Funktion oder die Nutzung von Power Query an.
Gruß
Günther
AW: Filtern nach Werten und löschen
26.03.2019 13:09:18
Daniel
Hi
da gibt's viele mögichkeiten das zu tun:
Variante 1) 
Range("D:D").Copy
with Range("X:X")
.PasteSpecial xlpastevalues
.Replace "3*", True, xlwhole
.Replace "8*", true, xlwhole
.Replace "AB*", True, xlwhole
.Cells(1, 1).Value = True 'verhindert, dass die Zeile 1 mit den Überschriften gelöscht wird
.SpecialCells(xlcelltypeconstants, 3).EntireRow.delete
.ClearContents
end with
Variante 2: 
with ActiveSheet.UsedRange
with .Columns(.columns.count + 1)
.FormulaR1C1 = "=IF(OR(Left(RC4,1)=""3"",Left(RC4,1)=""8"",Left(RC4,2)=""AB""),Row(),0)" _
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .column, xlno
.ClearContents
End with
end with

wobei die zweite Methode meine bevorzugte Standardmethode zum löschen von Zeilen ist, weil sie sehr schnell ist, und mehr oder weniger für alle Aufgaben des Typs Löschen von Zeilen mit Bedingung verwendet werden kann, es muss lediglich die Formel angepasst werden.
Außerdem kann man diesen Weg auch sehr gut manuell, dh ohne Makro ausführen.
(Formel eintragen zum Kennzeichnen der zu löschenden Zellen (0 = löschen, Zeilennummer = bleibt stehen) und dann mit Duplikate Entferenen die Zeilen mit 0 eleminieren)
Gruß Daniel
Anzeige
AW: Filtern nach Werten und löschen
26.03.2019 13:21:49
Herbert
Hallo Daniel,
bei diesen beiden Varianten, läuft mir, als "altem Excel-Hasen", das Wasser im Munde zusammen! Vielen Dank dafür, so habe auch ich wieder etwas dazu gelernt! Klasse!!!
Servus
AW: Filtern nach Werten und löschen
26.03.2019 16:31:04
VSVMAR
Hallo Daniel,
vielen Dank für deine Hilfe. Mit deiner ersten Variante konnte ich mein Problem schon super lösen!
Im nächsten Schritt möchte ich in einer anderen Spalte nach allen Werten filtern, welche kleiner als 10€ sind. Dafür würde sich ja wahrscheinlich die 2 Variante anbieten, aber ich weiß nicht wie ich dein Vorschlag entsprechend abändern muss.
Noch einmal zusammengefasst: In Spalte G nach allen Werten filtern kleiner 10€ und anschließen alle Zeilen löschen.
Vielen Dank und beste Grüße.
Anzeige
AW: Filtern nach Werten und löschen
26.03.2019 16:54:56
Daniel
Hi
machs von Hand, ohne Makro.
das zweite Makro funktioniert nach folgendem Prinzip:
1. schreibe in die erste freie Spalte am Tabellenende eine Formel, die alle Zeilen die gelöscht werden sollen mit 0 kennzeichnet und alle, die stehen bleiben müssen mit der aktuellen Zeilennummer (Zeile())
2. schreibe in die Überschriftenzeile der Hilfsspalte die 0
3. wende auf die ganze Tabelle die Funktion DATEN - DATENTOOLS - DUPLIKATE ENTFERENEN an, mit der Hilfsspalte als Kriterium und er Option "keine Überschrift"
4. lösche die Hilfsspalte wieder.
das einzige, was du anpassen musst wenn sich die Bedingungen zum löschen der Zeilen ändern, ist die Formel.
Diese kannst du dir aber auch unabhängig vom Makro ausdenken und ausprobieren, und dann über den Recorder herausfinden, wie die Formel über VBA geschrieben werden muss.
dann brauchst du nur den neuen Formeltext in mein Makro übernehmen.
Gruß Daniel
Anzeige
AW: Filtern nach Werten und löschen
26.03.2019 17:19:15
VSVMAR
Hi Daniel,
vielen Dank. Ich werde es einmal ausprobieren.
LG
;

Forumthreads zu verwandten Themen

Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Anzeige
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
einfügen von daten in gefilterte Liste
daten

hallo zusammen
ich habe folgendes problem:
ich habe eine gesamtliste, ( mit den Spalten,Kundennr, Kundenname Ansprechpartner im Aussendienst (der gehört zu meiner Firma und betruet den Kunden in dieser Zeile) , briefversand j oder n ) . Diese Liste schicke ich an bspw. an 10 Mitarbeite...
11.02.2010 21:06:51
Thread-ID: 1137726
2 Beiträge
Anzeige
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Ausgeblendete Zellen Löschen
Marta

Hallo ,
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen() Dim Letzte As Long Dim I As Long lastRowU = Range("U"...
07.06.2010 11:36:51
Thread-ID: 1160632
7 Beiträge
Anzeige
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
Anzeige
VBA: Zeilen mit Eintrag in Spalte B löschen
Martin

Guten Tag
Wie kann ich vermeiden beim untenstehende Code ein RC22 (hätte lieber ein Range oder Cells) einzugeben. Ich möchte, dass alle Zeilen mit Eintrag O oder P in Spalte B gelöscht werden.
Besten Dank im voraus.
Martin
'O und P löschen
With xxx.UsedRange
With .Colum...
13.04.2011 15:29:24
Thread-ID: 1210256
7 Beiträge
ausgeblendete Zeilen (Inhalt) löschen
Lorenz

Hallo Excelscheff`s
Für mich wieder mal ein ungelöstes Langzeitproblem.
Mit folgenden Codezeilen wird der Inhalt von ausgeblendeten (Filter-Rest) Zeilen nicht gelöscht.
Wie muß der Code lauten um die "ausgeblendeten Zeilen in den Löschvorgang ein zu beziehen?
LoLetzte = wksDaten...
16.05.2011 13:28:15
Thread-ID: 1214665
3 Beiträge
Alle Leere Zeilen In A Spalte Löschen
Leo

Abend zusammen,
ich hab folgendes Problem !?
Ich habe in der A SPALTE eine Namensliste, mit mehreren tausend Namen, doch leider sind mir beim kopieren in Excel ein paar "ZEILEN Lücken" - ich hoffe ihr versteht mein Problem, kann es nicht besser formulieren - aufgestoßen ...
Meine Fr...
28.09.2011 21:43:27
Thread-ID: 1231905
4 Beiträge
VBA: leere Zeilen löschen
Fritz_W

Hallo Forumsbesucher,
ich bitte um Eure Hilfe:
Mit welchem Code lassen sich alle leere Zeilen der aktiven Spalte (bis zur letzten Zeile mit Inhalt) löschen.
Beispiel: Befindet sich der Cursor in Zelle C6 und ist in Spalte C die letzte Zelle mit Inhalt die Zelle C957 sollten alle lee...
19.10.2011 09:27:12
Thread-ID: 1234458
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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