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

Zeilen löschen, wenn Wert in Spalte B

Forumthread: Zeilen löschen, wenn Wert in Spalte B

Zeilen löschen, wenn Wert in Spalte B
03.06.2020 12:31:20
Marc
Hallo,
ich verstehe nicht, warum das nicht funktioniert... Ich möchte gerne alle Zeilen, in der in der Spalte B NICHT der Wert 123456789 steht, löschen.
Dafür habe ich folgendes geschrieben:
Sub Zeilen_loeschen()
Dim i As Long
Dim letztezeile As Long
Sheets("Artikel").Select
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To letztezeile
If Range("B" & i).Value  "123456789" Then
ActiveSheet.Rows(i & ":" & i).Delete
End If
Next
End Sub
Er löscht auch irgendwas, aber der Geier weiß was und warum....
Hier ist die Datei:
https://www.herber.de/bbs/user/137973.xlsm
Danke für einmal vom Schlauch heben...
LG
Marc
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen, wenn Wert in Spalte B
03.06.2020 12:41:36
MCO
Hallo Marc!
Lass mich raten:
Von 2 aufeinanderfolgenden Zeilen wird nur 1 gelöscht :-)
Ist logisch: Wenn du Zeile 9 löschst wird Zeile 10 zu Zeile 9 und der Zähler geht zur neuen Zeile 10
Wie verhindern?
Weg A
Lösche nicht die Zeilen sondern nur den Inhalt. Am Ende alle leeren Zellen des Bereiches löschen.
Müsste auch schneller durchlaufen.
ActiveSheet.Rows(i & ":" & i).clearcontents
am Ende:
Spalte auswählen, die sonst immer gefüllt ist
Set Rng = Range("B2:B" & letztezeile).SpecialCells(xlCellTypeBlanks)
Rng.EntireRow.Delete

Weg B
Zähle rückwärts: 
For i = letztezeile to 2 step -1
Viel Erfolg!
Gruß, MCO
Anzeige
Danke für diese MEGA Erklärung!!!!
03.06.2020 14:30:04
Marc
Vielen Dank für diese Mega Erklärung!! Hab es nun vollumfänglich verstanden!
Danke, danke, danke!!
Marc
AW: Zeilen löschen, wenn Wert in Spalte B
03.06.2020 14:02:07
Daniel
HI
warum das nicht funktioniert und wie es besser geht, hat dir MCO schon erklärt.
generell sind Schleifen zum Löschen von Zeilen ungünstig, da aufwendig zu programmieren und langsam in der Ausführung.
es gibt in Excel mehrere Methoden, die besser sind:
  • Spaltenunterschiede

    • in deinem Fall gibt es sogar eine eigene Menüfunktion:
    1. selektiere die Spalte B
    2. aktiviere innerhalb dieser Selektion eine Zelle, die den Wert "123456789" enthält (aktive Zelle)
    3. klicke dann im Menü: Start - Bearbeiten - Inhalte auswählen - Spaltenunterschiede
    jetzt sollten alle Zellen markiert sein, die nicht "123456789" enthalten
    4. lösche dann dieses Zellen mit der Option "ganze Zeile"
    in VBA kann man das dann in eine einzige Progammzeile packen:
    ActiveSheet.UsedRange.Offset(1, 0).Columns(2).ColumnDifferences(Columns(2).Find(what:="123456789", lookat:=xlWhole)).EntireRow.Delete

  • Duplikate Entfernen

    • das Duplikate Entfernen löscht sehr schnell Zeilen aus größten Datenmengen. Daher verwende ich es bevorzugt, um generell Zeilen mit Bedingung zu löschen.
    die hierfür erforderlichen Duplikate erzeugt man per Formel in einer Hilfesspalte, dabei kennzeichnet man alle Zeilen, die gelöscht werden müssen mit der Zahl 0 und die die stehen bleiben sollen mit der Zeilennummer
    in deinem Fall würde das so aussehen:
    in die Zelle C2 kommt die Formel: =Wenn(B2=123456789;Zeile();0)
    in die Überschriftenzeile kommt ebenfalls die 0.
    dann kann man die mit 0 markierten Zeilen über das DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN mit der Hilfsspalte als Kriterium und der Option "keine Überschrift" löschen.
    das sieht als Code so aus: 
    with activesheet.usedrange
with .columns(columns.count + 1)
.formulaR1C1 = "=IF(RC2=123456789,Row(),0)"
.cells(1, 1).value = 0
.entirerow.removeduplicates .column, xlno
.clearcontents
end with
end with

    diesen Code kannst du für fast alle Fälle, in denen Zeilen mit Bedingung gelöscht werden sollen, anwenden und musst hierbei lediglich die Formel an die jeweilige Bedingung anpassen.
    den Rest des Codes kannst du übernehmen.
    Gruß Daniel
    Anzeige
    AW: Zeilen löschen, wenn Wert in Spalte B
    05.06.2020 23:16:00
    Thomas
    Hallo
    noch eine Frage an Daniel:
    Du schreibst:
    "4. lösche dann dieses Zellen mit der Option "ganze Zeile""
    Wie geht das?
    Gruß Tom
    AW: Zeilen löschen, wenn Wert in Spalte B
    09.06.2020 00:29:39
    Werner
    Hallo,
    Rechtsklick auf eine der ausgewählten Zellen - Zellen löschen - dann geht ein Fenster auf "Löschen" Ganze Zeile auswählen
    Gruß Werner
    Anzeige
    AW: Zeilen löschen, wenn Wert in Spalte B
    12.06.2020 21:43:22
    Thomas
    Danke Werner. gefunden.
    AW: Zeilen löschen, wenn Wert in Spalte B
    04.06.2020 08:07:34
    Daniel
    das hier sollte auch funktionieren
    
Sub loeschen()
Sheets("Artikel").Select
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 2)  "123456789" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

    Anzeige
    AW: Zeilen löschen, wenn Wert in Spalte B
    05.06.2020 23:10:16
    Thomas
    Hallo Daniel,
    wenn ich mich dazwischen melden darf:
    Dein letztes Makro Sub loeschen() war, glaube ich, das Nützlichste hier, nämlich das Zeile für Zeile löschen, aber von hinten!!! Das finde ich wichtig zu betonen.
    (Ohne dabei die anderen Beiträge schmälern zu wollen)
    Das Makro "Duplikate entfernen" it auch gut, funktioniert aber nur mit einem Punkt vor columns.count. Also so:
    "with .columns(.columns.count + 1)"
    sonst ist es die Spalte jenseits des rechten Endes der Excel-Welt.
    Auch das Beispiel mit "ColumnDifferences" ist cool. Habe noch nie was davon gehört oder gelesen, abe ich bin kein Masstab.
    Noch eine Frage zu diesem Einzeiler mit "ColumnDifferences". Warum funktioniert Intellisense bei "ActiveSheet." nicht?
    Gruß, Thomas
    Anzeige

    Forumthreads zu verwandten 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
    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
    Anzeige
    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
    Makro läuft nicht. Zeile löschen wenn...
    Christoph

    Hallo,
    ich habe eine große Tabelle und möchte die Zeilen löschen, die eine "1" in Spalte O:O haben.
    Ich habe auch hier und in anderen Foren eine Reihe Makros gefunden. Unter anderem dieses hier:
    Sub loeschen() Dim loZeile As Long Application.ScreenUpdating = False For loZeile = 12...
    01.07.2009 13:38:55
    Thread-ID: 1085695
    10 Beiträge
    Doppelte Zelleneinträge dann ZEILE löschen
    Wolle

    Hallo alle zusammen,
    habe noch ein Problem:
    Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
    Bereich: B:B
    Beispiel:
    B1 = 100
    B2 = 500 ..... bleibt stehen
    B3 = 500 ..... ZEILE löschen
    08.07.2009 12:32:46
    Thread-ID: 1087167
    5 Beiträge
    Zeile Löschen wenn aktuelle Spalte leer ist
    Lutz

    Hallo Excel-Spezialisten,
    ich bekommen immer sehr umfangreiche Listen und muß nach bestimmten Kriterien löschen.
    Ich bräuchte jetzt ein Makro, dass alle Zeilen löscht bei denen in der aktiven Spalte kein Eintrag ist - und eines, dass alle Spalten löscht bei denen in der aktuellen Zeile...
    10.07.2009 21:58:59
    Thread-ID: 1087780
    4 Beiträge
    Makro doppelte Zeilen löschen
    Christian

    Hallo allerseits,
    ich habe folgendes Makro, welches Zeilen ahand von doppelten Einträgen in einer spalte löscht.
    Allerdings wird immer die zweite Zeile (von oben gesehen) gelöscht, ist es auch möglich die erste zeile zu löschen und die zweite zu behalten?
    hier das makro: Sub supp_d...
    22.07.2009 10:44:51
    Thread-ID: 1090433
    5 Beiträge
    Anzeige
    Anzeige

    Infobox / Tutorial

    Zeilen löschen in Excel basierend auf Werten in Spalte B

    Schritt-für-Schritt-Anleitung

    Um alle Zeilen in Excel zu löschen, die in Spalte B nicht den Wert "123456789" enthalten, kannst du das folgende VBA-Makro verwenden. Achte darauf, dass du die richtigen Berechtigungen hast, um VBA in deiner Excel-Version auszuführen.

    1. Öffne Excel und das Arbeitsblatt mit den Daten.
    2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
    3. Wähle Einfügen > Modul, um ein neues Modul zu erstellen.
    4. Füge den folgenden Code in das Modul ein:
    Sub Zeilen_loeschen()
    Dim i As Long
    Dim letztezeile As Long
    Sheets("Artikel").Select
    letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    For i = letztezeile To 1 Step -1
        If Cells(i, 2).Value <> "123456789" Then
            Rows(i).Delete
        End If
    Next i
End Sub
    1. Schließe den VBA-Editor und führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf „Ausführen“ klickst.

    Häufige Fehler und Lösungen

    • Problem: Nur jede zweite Zeile wird gelöscht.

      • Lösung: Wenn du Zeilen von oben nach unten durchläufst, verschieben sich die Zeilen, nachdem eine gelöscht wurde. Verwende die Schleife von unten nach oben (wie im obigen Beispiel).

    • Problem: Der Code gibt einen Fehler aus.

      • Lösung: Überprüfe, ob das Arbeitsblatt „Artikel“ existiert. Achte darauf, dass alle verwendeten Namen korrekt sind.

    Alternative Methoden

    1. Spaltenunterschiede verwenden:

      • Selektiere die Spalte B.
      • Aktiviere eine Zelle mit dem Wert "123456789".
      • Gehe zu Start - Bearbeiten - Inhalte auswählen - Spaltenunterschiede.
      • Lösche die markierten Zellen mit der Option „ganze Zeile“.

    2. Duplikate entfernen:

      • Füge in einer Hilfsspalte eine Formel hinzu: =WENN(B2=123456789;ZEILE();0).
      • Nutze dann die Funktion Daten - Datentools - Duplikate entfernen, um die Zeilen mit 0 zu löschen.

    Praktische Beispiele

    Hier sind einige praktische Anwendungen des Codes:

    • Löschen von Zeilen mit einem bestimmten Wert:

      If Cells(i, 2).Value = "0" Then Rows(i).Delete

    • Löschen aller Zeilen, die einen bestimmten Inhalt nicht enthalten:

      If InStr(Cells(i, 2).Value, "bestimmter Inhalt") = 0 Then Rows(i).Delete

    Tipps für Profis

    • Verwende Application.ScreenUpdating = False, um die Bildschirmaktualisierung während des Löschvorgangs zu deaktivieren. Dies beschleunigt das Makro erheblich.

    • Berücksichtige das Löschen von Zeilen mit 0-Werten, indem du den folgenden Code hinzufügst:

      If Cells(i, 2).Value = 0 Then Rows(i).Delete

    FAQ: Häufige Fragen

    1. Wie lösche ich alle Zeilen mit einem Wert in einer anderen Spalte? Du kannst die Bedingung in der If-Anweisung anpassen, um auf andere Spalten zuzugreifen.

    2. Gibt es eine Möglichkeit, alle 0-Werte gleichzeitig zu löschen? Ja, du kannst die SpecialCells-Methode verwenden, um leere oder 0-Zellen zu finden und zu löschen.

    3. Wie kann ich ein Makro in Excel ausführen? Du kannst das Makro über das Menü „Entwicklertools“ oder mit ALT + F8 ausführen.

    4. Was passiert, wenn ich versehentlich die falschen Zeilen lösche? Stelle sicher, dass du vorher eine Sicherungskopie deiner Daten machst, um Datenverlust zu vermeiden.

    Beliebteste Forumthreads (12 Monate)

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