Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub AddAutocorrect()
   Dim iRow As Integer
   Dim sWas As String, sWomit As String
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      sWas = Cells(iRow, 1)
      sWomit = Cells(iRow, 2)
      Application.AutoCorrect.AddReplacement _
         what:=sWas, Replacement:=sWomit
      iRow = iRow + 1
   Loop
End Sub

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Liste