Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen
Gruppe
Suchen
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