Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen

Gruppe

Zeichenfolge

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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