Microsoft Excel

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