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
Sub Zahl_aktivieren()
Dim C As Range
For Each C In ActiveSheet.UsedRange
If Not IsEmpty(C) Then
If IsNumeric(C) Then C = C * 1
End If
Next
End Sub
Grüße Petra