Guten Tag ich habe hier dieses Makro welches ich im Netz gefunden habe,
aber irgendwie funktioniert es nich ich weis aber nicht warum kann mir jemand Helfen?
Ich möchte mit dem Makro nur die Markierten Zeilen Glätten und Säuber,
Wenn ich das Makro starte sind die Zeilen aber unverändert, mit der Formel Glätten Fungtioniert es!
Sub Säubern_Glätten()
Dim cx As Range, str As String
Application.TransitionNavigKeys = False
For Each cx In Selection.Cells
With cx
If .Value <> "" And .PrefixCharacter <> "" Then
str = WorksheetFunction.Clean(.Text) 'Säubern
str = Trim(str) 'Glätten
.Clear
.NumberFormat = "@"
.Value = str
End If
End With
Next cx
MsgBox "Hallo " & Application.UserName & vbNewLine & _
"Vorgang erfolgreich ausgeführt" & vbNewLine & _
"Alle Markierten Zeilen wurden Geglättet und Gesäubert", vbInformation, "Information"
End Sub
Vielen Dank im voraus
|