VBA richtig angepasst?
15.12.2016 09:51:52
Marcel
ich habe ein Makro - auch aus diesem Forum und möchte es dahingehend ergänzen, dass ich am Ende eine Meldung erhalte, dass das Makro erfolgreich durchgelaufen ist. Anhand anderer Makros habe ich jetzt den ursprünglichen Code angepasst so wie ich denke, dass es richtig sein könnte...
Kann mir nun jemand sagen, ob das stimmt, was ich da gemacht habe?
"Basis":
Sub LeerzeichenUnd160Raus()
Dim r As Range
On Error Resume Next
Set r = Application.InputBox(prompt:="Bitte Bereich markieren", Type:=8)
On Error GoTo 0
If Not r Is Nothing Then
r.Replace Chr(32), " ", xlPart
r.Replace Chr(160), " ", xlPart
End If
End Sub
Meine Anpassung:Sub LeerzeichenUnd160Raus()
Dim r As Range
On Error Resume Next
Set r = Application.InputBox(prompt:="Bitte Bereich markieren", Type:=8)
On Error GoTo 0
If Not r Is Nothing Then
r.Replace Chr(32), " ", xlPart
r.Replace Chr(160), " ", xlPart
End If
MsgBox "Makro erfolgreich ausgeführt"
End Sub
Danke und Grüße
Marcel