Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA richtig angepasst?

VBA richtig angepasst?
15.12.2016 09:51:52
Marcel
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA richtig angepasst?
15.12.2016 10:10:29
Sven
Hi Marcel,
passt soweit... Ich würde jedoch wie folgt ergänzen:
MsgBox "Makro erfolgreich ausgeführt", vbInformation, "Info"
Grüße
Sven
AW: VBA richtig angepasst?
15.12.2016 16:11:12
Werner
Hallo Marcel,
dein Code ersetzt Leerzeichen durch Leerzeichen
If Not r Is Nothing Then
r.Replace Chr(32), " ", xlPart
r.Replace Chr(160), " ", xlPart
End If
wenn schon, dann
If Not r Is Nothing Then
r.Replace Chr(32), "", xlPart
r.Replace Chr(160), "", xlPart
End If
Achte mal auf den Unterschied bei den Gänsefüßchen.
Gruß Werner
Gruß Werner
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige