Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1192to1196
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

Makro prüfen

Makro prüfen
walter
Guten Morgen,
habe dieses Makro aufgezeichnet:
Application.AutoCorrect.DeleteReplacement What:=",,"
With Application.AutoCorrect
.TwoInitialCapitals = True
.CorrectSentenceCap = True
.CapitalizeNamesOfDays = True
.CorrectCapsLock = True
.ReplaceText = True
.DisplayAutoCorrectOptions = True
End With
Nun möchte ich vorher prüfen, wenn der Doppelpunkt nicht mehr vorhanden ist,
soll halt dies nicht ausgeführt werden.
So habe ich den Doppelpunkt gesetzt:
Application.AutoCorrect.AddReplacement What:=",,", Replacement:=":"
With Application.AutoCorrect
.TwoInitialCapitals = True
.CorrectSentenceCap = True
.CapitalizeNamesOfDays = True
.CorrectCapsLock = True
.ReplaceText = True
.DisplayAutoCorrectOptions = True
End With
mfg walter mb

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro prüfen
10.01.2011 11:51:31
Holger,
Hallo,
wenn bei Replacement nichts gefunden wird, wird auch nichts gesetzt soviel ich weiß.
Setze vorher noch
ApplicationDisplayAlerts auf False
AW: Makro prüfen
10.01.2011 12:05:30
walter
Hallo Holger,
habe das von Rudi genommen, auch Dir
herzlichen Dank.
mfg walter mb
AW: Makro prüfen
10.01.2011 11:54:51
Rudi
Hallo,
Sub xxx()
repl = Application.AutoCorrect.ReplacementList
For x = 1 To UBound(repl)
If repl(x, 1) = ",," And repl(x, 2) = ":" Then
With Application.AutoCorrect
.DeleteReplacement What:=",,"
.TwoInitialCapitals = True
.CorrectSentenceCap = True
.CapitalizeNamesOfDays = True
.CorrectCapsLock = True
.ReplaceText = True
.DisplayAutoCorrectOptions = True
End With
Exit For
End If
Next
End Sub

Gruß
Rudi
Anzeige
Danke Rudi -)
10.01.2011 12:04:33
walter
Hallo Rudi,
einwandfrei, habe noch dies einsetzen müssen:
Dim repl
Dim x
mfg walter mb

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige