Vba: so entfernen sie zahlen aus einer zeichenfolge

Sie können in VBA die folgende Funktion erstellen, um Zahlen aus einer Zeichenfolge in einer Zelle in Excel zu entfernen:

 Function RemoveNumbers(CellText As String) As String

With CreateObject(" VBScript.RegExp ")
    .Global = True
    .Pattern = " [0-9] "
    RemoveNumbers = .Replace(CellText, "")
End With

End Function

Mit dieser Funktion können Sie dann Zahlen aus jeder gewünschten Zelle in Excel entfernen.

Das folgende Beispiel zeigt, wie Sie diese Funktion in der Praxis nutzen können.

Beispiel: Zahlen aus einer Zeichenfolge mit VBA entfernen

Angenommen, wir haben die folgende Liste von Mitarbeiter-IDs in Excel:

Nehmen wir an, wir möchten die Ziffern aus jeder Zeichenfolge in der Spalte „Mitarbeiter-ID“ entfernen.

Dazu können wir in VBA folgende Funktion erstellen:

 Function RemoveNumbers(CellText As String) As String

With CreateObject(" VBScript.RegExp ")
    .Global = True
    .Pattern = " [0-9] "
    RemoveNumbers = .Replace(CellText, "")
End With

End Function

Nachdem wir diese Funktion erstellt haben, können wir die folgende Formel in Zelle B2 eingeben, um die Mitarbeiternummer in Zelle A2 ohne alle Ziffern zurückzugeben:

 =RemoveNumbers( A2 )

Wir können dann auf diese Formel klicken und sie in jede verbleibende Zelle in Spalte B ziehen:

Spalte B zeigt jede der Zeichenfolgen in Spalte A ohne Ziffern an.

Zum Beispiel:

• 4009Andy wird zu Andy
• 1540Bob wird Bob
• 1500Tschad09 wird Tschad
• 1600Doug wird Doug

Und so weiter.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben mit VBA ausführen:

VBA: So zählen Sie das Vorkommen von Zeichen in einer Zeichenfolge
VBA: So überprüfen Sie, ob eine Zeichenfolge eine andere Zeichenfolge enthält
VBA: So zählen Sie Zellen mit bestimmtem Text