VBA Ersetzen

Option Explicit
Sub Ersetzen()
Dim i As Long
Dim LzB As Long
Worksheets("Tabelle2").Range("A1:B6").Copy ActiveSheet.Range("A1") 'in A stehen die Umlaute, _
in B die Vokale
With ActiveSheet
LzB = Application.Max(10, Cells(Rows.Count, 2).End(xlUp).Row)
For i = 1 To 6
.Range("A10:M" & LzB).Replace What:=.Cells(i, 1), Replacement:=.Cells(i, 2), LookAt:= _
xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next i
End With
End Sub