darf ich um eure Hilfe bitten:
ich habe diverse Texte in A:A
jeder Eintrag kann x Leerzeichen oder x # haben (oder andere).
Per Suchen und Ersetzen komme ich nur bedingt weiter denn,
wenn ein Text jetzt 1 * y hat kann ich es ersetzen mit 1 * z = ok
wenn ein Text jetzt aber 2 * y hintereinander hat bekomme ich auch 2 * z hintereinander
das möchte ich nicht!
Ich brauche: xy=1z
Mein Ansatz:
Sub LeerzeichenRaus()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Selection
With Bereich
.Replace What:=" ", Replacement:="/", _
LookAt:=xlPart, MatchCase:=True
.Replace What:=Chr(160), Replacement:="/", _
LookAt:=xlPart, MatchCase:=True
For Each Zelle In Bereich
Zelle.Value = Zelle.Value * 1
Next Zelle
End With
End Sub
Danke mal und GrußNilo