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