Leerzeichen...
15.04.2014 20:58:17
Thorsten_Z
Folgenden Code habe ich aus diesem Forum:
Sub LeerzeichenWeg()
'entfernnt ALLE Leerzeichen aus dem
'Inhalt der ausgewählten Zellen
'!!!!!!Bereich vorher markieren!!!!!!
Dim rng As Range
For Each rng In Selection
rng = Replace(rng, " ", "")
Next
End Sub
Z.B. "P6:Q44,AH6:AI44,BS6:BT44"
Gruß
Thorsten
Anzeige