Thema: Leerzeichen aus einem Bereich löschen

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

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