Gruppe
Allgemein
Problem
Wie kann ich in allen Zeichenfolgen in Spalte A die Punkte durch Leerzeichen ersetzen und die überflüssigen Leerzeichen entfernen. Das Ergebnis soll aus Kleinbuchstaben bestehen und in Spalte B ausgegeben werden.
StandardModule: basMain
Sub Umwandeln()
Dim lRow As Long
Application.ScreenUpdating = False
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("B1").Formula = "=lower(trim(substitute(A1,""."","" "")))"
Range("B1:B" & lRow).FillDown
Columns("B").Copy
Columns("B").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1").Select
Application.ScreenUpdating = True
End Sub