fehlermeldung umgehen
27.09.2006 06:37:05
manuela
ich verwende zwei makros, um die autokorrektur-einträge beim öffnen einer bestimmten datei zu ergänzen und beim schliessen wieder zu löschen. jetzt kann es vorkommen, dass während dem arbeiten einer der autokorrekur-einträge manuell gelöscht wird. mein reset-makro bringt dann bei der entsprechenden position die fehlermeldung und stoppt. ich möchte aber im prinzip, dass gar keine fehlermeldung erscheint, sondern das makro einfach mit der nächsten zeile bzw. dem nächsten eintrag weitermacht. was muss ich ändern?
danke
manuela
Sub ResetAutocorrect()
Dim iRow As Integer
Dim sWas As String
On Error GoTo Errorhandler
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
sWas = Cells(iRow, 1)
Application.AutoCorrect.DeleteReplacement _
what:=sWas
iRow = iRow + 1
Loop
Exit Sub
Errorhandler:
MsgBox prompt:="Listeneintrag existiert nicht!"
End Sub
Anzeige