VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Leerzeichen aus einem Bereich löschen

Gruppe

Allgemein

Bereich

Bereich

Thema

Leerzeichen aus einem Bereich löschen

Problem

Wie kann ich bei einer importierten Datei alle Leerzeichen löschen?

Lösung

Den Bereich mit den zu entfernenden Leerzeichen markieren (Mehrfachauswahl ist möglich), dann Menü BEARBEITEN / ERSETZEN - Suchen nach -> Leerzeichen eingeben - Ersetzen durch -> nichts eingeben




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