Office: Wie lösche ich Zellen mit Leerstellen

Hallo,
ich habe eine Excel Tabelle in der sich zwischen einigen Zahlen auch leere Zellen befinden, diese "leeren" Zellen sind leider nicht leer, sondern es befinden sich Leerstellen in der Zelle. Diese Leerzellen möchte ich löschen- aber wie?

Ich könnte mit VBA durch jede Zelle durch laufen und schauen ob sich die Leerstellen darin befinden und diese Zelle dann löschen zB. so:

Code:

Sub test2()


Dim Zeile As Integer
Dim ZeileMax As Integer


With Sheets("Tabelle1")


ZeileMax = Range("A100").End(xlUp).Row


For Zeile = ZeileMax To 1 Step -1


    If Cells(Zeile, 1).Value = "             " = True Then ' 13xLeerstelle
    Cells(Zeile, 1).ClearContents
    
    End If
Next Zeile


End With


End Sub

Da es sich aber später um eine große Anzahl Daten bzw. leere Zellen handelt- ist das glaub nicht die Optimale Lösung in jede Zelle zu schauen und sie dann zu löschen.
Gibt es eine bessere/sinnvollere Möglichkeit?
Im Anhang befindet sich eine Test Datei.
Ich benutze Excel 2010
Danke!

 

Hi Marius,

mit deinem Code werden nur die Inhalte der Zellen in Spalte A geleert. In den Zellen der anderen Spalten sind auch Leerzeichen - sollen die auch gelöscht werden?

Versuche es mal so:

Code:

   Range("A2:E11") = Application.Substitute(Range("A2:E11"), " ", "")

Bis später,
Karin

 

Perfekt!!! Genau so etwas hab ich gesucht!!!!!
Danke!!