Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Leere Zeilen und Spalten in ausgewähltem Bereich löschen

Gruppe

Bearbeiten

Problem

Wie kann ich alle leeren Zeilen und Spalten in einem ausgewählten Bereich über VBA-Code löschen?

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

StandardModule: basMain

Sub CommandButton1_Click()
   Dim iCounter As Integer
   If Selection.Cells.Count = 1 Then
      Beep
      MsgBox "Sie müssen einen Bereich auswählen!"
      Exit Sub
   End If
   For iCounter = Selection.Columns.Count To 1 Step -1
      If WorksheetFunction.CountA(Columns(iCounter)) = 0 Then
         Selection.Columns(iCounter).Delete
      End If
   Next iCounter
   For iCounter = Selection.Rows.Count To 1 Step -1
      If WorksheetFunction.CountA(Rows(iCounter)) = 0 Then
         Selection.Rows(iCounter).Delete
      End If
   Next iCounter
End Sub