Thema: Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen

Home

Gruppe

Allgemein

Problem

Wie kann ich alle Zeilen eines Arbeitsblattes löschen, in denen in den Spalten B, D und J keine Werte stehen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub ZeilenLoeschen()
   Dim iRow As Integer, iRowL As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = iRowL To 1 Step -1
      If IsEmpty(Cells(iRow, 2)) And _
         IsEmpty(Cells(iRow, 4)) And _
         IsEmpty(Cells(iRow, 10)) Then
         Rows(iRow).Delete
      End If
   Next iRow
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen

Suchen und Löschen	Suchen und Löschen
mehrere Wörter suchen VBA	Zeile nach Wert durchsuchen
aus excel Worddatei nach Wert durchsuchen	Objekt mit XML Inhalt durchsuchen
Spalte durchsuchen + IF	Höchsten Wert suchen
Begriffe in Zeile suchen	Inhalte von einer PDF suchen und den Text kopieren
Zwei Bedingungen suchen	VBA Suchen, kopieren, einfügen
Wert suchen und ab Wert Zahlen addieren	Find statt Formel nach Wert suchen lassen
String mit Buchstaben & Zahlen suchen und kopieren	makro daten suchen
Fehlende Nummern via VBA suchen	Range nach Werten durchsuchen und dann ausgeben
Zahlen raussuchen ohne Punkt.	Problem mit =WENN(ISTBEZUG(SUCHEN(
Wort in Zelle suchen	@ Tino (in Zeitraum Suchen)
Suchen und Kopieren mit Schleife	In einem Zeitraum per VBA suchen
nächsthöheren Wert aus Tabelle suchen	Wort in Matrix suchen und Zellenwert daneben ausge
Suchen - Ersetzen mit VBA in Formeln	mit textbox wert suchen zeile in farbe
Teile aus Text suchen	Buchstabenkombination suchen wenn gefunden Ausgabe
nach 2 Werten suchen und berechnen	Text in einer anderen Zelle suchen
Tabelle durchsuchen, Zeile kopieren, einfügen	In Array suchen
Wert suchen	Wert suchen und ganze Zeile löschen
Inhalte von Textfeldern durchsuchen	Add-In suchen lassen
Bearbeiten Suchen	Spalten nach Wert durchsuchen
Daten in Matrix suchen und in Matrix schreiben	Betrag zusammensuchen
Allgemeine Frage zur Fehlerbehandlung	Werte in Tab1 suchen und in Tab2 einfügen
allgemeine Fragen zu einer Datenbank	Word-Dateien durchsuchen
Wert in externer Datei suchen	Suchen und Ersetzen
Nach bestimmter bedingter Formatierung suchen	Makro Suchen