AW: 5000 Zeilen < 2 Sekunden - mit diesem Makro
FP
Hi Georg,
Falls Du eine umfangreiche Tabelle hast, geht's so viel schneller:
Sub GrossVBA()
Dim rng As Range
Dim a As Byte ' ASCII-Code
Application.ScreenUpdating = False
With ActiveCell
Set rng = Intersect(Columns(.Column), .CurrentRegion)
For a = 97 To 122
rng.Replace Chr(a), Chr(a - 32), MatchCase:=True
Next
rng.Replace "ä", "Ä", MatchCase:=True
rng.Replace "ö", "Ö", MatchCase:=True
rng.Replace "ü", "Ü", MatchCase:=True
rng.Replace "ß", "SS", MatchCase:=True
End With
Application.ScreenUpdating = True
End Sub
Servus aus dem Salzkammergut
Franz