Ich habe in einer Spalte ca. 50.000 Straßennamen abgelegt.
Nun haben sich dort aber etliche Fehler eingeschlichen.
Der Wortteil "straße" wurde versehentlich oft groß geschrieben. Z.B.: MarktStraße.
Nun möchte ich, dass Excel alle Großbuchstaben durch Kleinbuchstaben ersetzt, es sei denn es ist der Wortanfang, es ist eine Leerstelle davor (für z.B.: Rendsburger Straße), oder es ist ein Bindestrich davor (z.B.: Müller-Straße).
Fehler anderer Art, wie z.B. eine unzulässige Abkürzung habe ich wie folgt geändert:
ActiveWorkbook.ActiveSheet.Columns("H:H").Select
Selection.Replace What:="str.", Replacement:="straße", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Ich denke, eine komplizierte Schleife durchlaufen zu lassen, dauert zu lange, oder?
Hat jemand eine glorreiche Idee?
Gruß
Frank