VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen

Gruppe

Allgemein

Bereich

Zeichenfolge

Thema

Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge