Vba: so teilen sie eine zeichenfolge anhand mehrerer trennzeichen auf

Sie können die folgende grundlegende Syntax verwenden, um eine Zeichenfolge basierend auf mehreren Trennzeichen in VBA aufzuteilen:

 SubSplitString ()

    Dim SingleValue() As String
    Dim i As Integer
    Dim j As Integer

    For i = 2 To 7
    newString = Replace(Range(" A " & i), " - ", " ")
    SingleValue = Split(newString, " ")
    
       For j = 1 To 3
           Cells(i, j + 1).Value = SingleValue(j - 1)
       Next j
       
    Next i
    
End Sub

In diesem speziellen Beispiel wird jede Zeichenfolge im Bereich A2:A7 anhand von Bindestrichen oder Leerzeichen in jeder Zeichenfolge unterteilt und dann die resultierenden Elemente jeder Zeichenfolge benachbarten Zellen in den Spalten B, C und D zugewiesen.

Hinweis : Dieses Makro ersetzt zunächst jeden Bindestrich durch ein Leerzeichen und teilt dann jede Zeichenfolge basierend auf der Position der Leerzeichen auf.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Teilen Sie eine Zeichenfolge basierend auf mehreren Trennzeichen in VBA

Angenommen, wir haben die folgende Namensliste in Excel:

Angenommen, wir möchten jeden Namen anhand von Bindestrichen oder Leerzeichen aufteilen und dann die resultierenden Elemente jeder Zeichenfolge neuen Zellen zuweisen.

Dazu können wir das folgende Makro erstellen:

 SubSplitString ()

    Dim SingleValue() As String
    Dim i As Integer
    Dim j As Integer

    For i = 2 To 7
    newString = Replace(Range(" A " & i), " - ", " ")
    SingleValue = Split(newString, " ")
    
       For j = 1 To 3
           Cells(i, j + 1).Value = SingleValue(j - 1)
       Next j
       
    Next i
    
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass dieses Makro jede Zeichenfolge in Spalte A anhand von Leerzeichen und Bindestrichen aufteilt und die einzelnen Textelemente jeder Zeichenfolge in den Spalten B, C und D anzeigt.

Hinweis Nr. 1: In diesem Beispiel teilen wir Zeichenfolgen anhand von Bindestrichen und Leerzeichen auf. Sie können Zeichenfolgen jedoch anhand beliebiger Trennzeichen aufteilen, indem Sie diese in den Funktionen „Ersetzen “ und „Teilen“ angeben.

Hinweis Nr. 2 : Die vollständige Dokumentation für die VBA- Split- Funktion finden Sie hier .

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