VBA: Leerstellen löschen

Question

Hallo Helfer:
dieses Makro macht schon das, was in der Frage genannt ist:

Sub ersetzen()
ActiveSheet.Cells.Replace What:=" ", Replacement:=""
End Sub

Aber ich brauche die Makrozeile so, das Zellen gesucht werden, die nur ein Leerzeichen und sonst keinen weiteren Inhalt haben. Nur dort soll das Leerzeichen gelöscht werden.

Vielen Dank im Voraus
mfg

Wolfgang

Answer 1

Hi Wolfgang,

Sub LeerLoeschen()
Dim rngZelle As Range
For Each rngZelle In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants)
If rngZelle = " " Then rngZelle.ClearContents
Next rngZelle
End Sub

Bis später,
Karin

Answer 2

Hallo Karin,
vielen Dank, das isses.
mfg
Wolfgang