Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Leerzeichen zwischen Zeichen- und Zahlenfolge entfernen

Gruppe

Zeichenfolge

Problem

Aus einem String aus einer Buchstaben- und Zahlenfolge soll das Leerzeichen zwischen dem letzten Buchstaben und der ersten Zahl entfernt werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub DeleteBars()
   Dim rng As Range
   Dim iCounter As Integer
   Dim sTxt As String
   For Each rng In Range("A1").CurrentRegion.Columns(1).Cells
      sTxt = rng.Text
      On Error Resume Next
         iCounter = 1
         Do While Not IsNumeric(Mid(sTxt, iCounter, 1))
            iCounter = iCounter + 1
         Loop
         sTxt = Left(sTxt, iCounter - 2) & _
            Right(sTxt, Len(sTxt) - iCounter + 1)
         rng.Value = sTxt
      On Error GoTo 0
   Next rng
End Sub