VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Leerzeichen zwischen Zeichen- und Zahlenfolge entfernen

Gruppe

Allgemein

Bereich

Zeichenfolge

Thema

Leerzeichen zwischen Zeichen- und Zahlenfolge entfernen

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

    


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