Gruppe
Allgemein
Problem
Aus einem String aus einer Buchstaben- und Zahlenfolge soll das Leerzeichen zwischen dem letzten Buchstaben und der ersten Zahl entfernt werden.
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