Hallo zusammen,
ich bräuchte mal euer Fachwissen. Leider stecke ich was VBA angeht, noch in den Kinderschuhen. Ich habe ein Makro gefunden, das überflüssige Leerzeichen löscht, leider macht das Makro es auf der kompletten Arbeitsmappe. Ich benötige lediglich den Bereich von AB6:AP2500. Kann mir jemand dabei, vielleicht helfen?
Sub Leerzeichen_löschen()
'
' Leerzeichen_löschen Makro
On Error Resume Next
Dim Zelle As Range
Dim SuchenNach As String
Dim ErsetzenDurch As String
SuchenNach = " "
ErsetzenDurch = ""
For Each Zelle In ActiveSheet.UsedRange
Zelle.Value = Application.Substitute(Zelle.Value, SuchenNach, ErsetzenDurch)
Next Zelle
On Error GoTo 0
End Sub
|