AutoKorrektur
12.05.2006 12:13:28
Walter
ich habe folgende AutoKorrektur in einer Datei drin:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.AutoCorrect.AddReplacement What:=",", Replacement:=":"
End Sub
Nun möchte ist diese rausnehmen, wenn die Datei geschlossen wird, leider kommt Fehlermeldung.
Private Sub Workbook_Deactivate()
Application.AutoCorrect.DeleteReplacement What:=","
With Application.AutoCorrect
.TwoInitialCapitals = True
.CorrectSentenceCap = True
.CapitalizeNamesOfDays = True
.CorrectCapsLock = True
.ReplaceText = True
.DisplayAutoCorrectOptions = True
End With
End Sub
gruß Walter
Anzeige