Gruppe
Allgemein
Problem
Wie kann ich mir die Autokorrekturliste in eine Tabelle einlesen lassen?
StandardModule: Modul1
Sub AutoKorrektur()
Dim arr As Variant
Dim iCounter As Integer
arr = Application.AutoCorrect.ReplacementList
For iCounter = 1 To UBound(arr)
Cells(iCounter, 1) = arr(iCounter, 1)
Cells(iCounter, 2) = arr(iCounter, 2)
Next iCounter
End Sub