Excel-VBA – Zeichenfolge in Zellen aufteilen

In diesem Tutorial zeigen wir Ihnen, wie Sie in VBA Textzeichenketten in Zellen aufteilen können.

Zeichenkette in Zellen aufteilen

In VBA können wir die Split-Funktion verwenden, um eine Textzeichenfolge in ein Array aufzuteilen.

Hinweis: Wir haben einen ganzen Mega-Guide zur Verwendung der Split-Funktion in VBA geschrieben. Wir empfehlen Ihnen sehr, ihn zu lesen.

Anschließend können wir das Array in einer Schleife durchlaufen und den aufgeteilten Text in Excel-Zellen ausgeben:

Sub SplitNachSemikolonBeispiel()
    'Variablen definieren
    Dim MeinArray() As String, MeinString As String, I As Variant, N As Integer
    
    'Beispielzeichenkette mit Semikolon als Trennzeichen
    MeinString = "john@myco.com;jane@myco.com;bill@myco.com;james@myco.com"
    
    'Die Funktion Split verwenden, um die Elemente der Zeichenkette abzutrennen
    MeinArray = Split(MeinString, ";")
    
    'Das Arbeitsblatt leeren
    ActiveSheet.UsedRange.Clear
    
    'Durch das Array iterieren
    For N = 0 To UBound(MeinArray)
        'Jede E-Mail-Adresse in die erste Spalte des Arbeitsblatts einfügen
        Range("A" & N + 1).Value = MeinArray(N)
    Next N
End Sub

Alternativ können wir auch die Transpose-Funktion verwenden, um das Array in ein Arbeitsblatt auszugeben:

Sub InBereichKopieren()
    'Variablen erstellen
    Dim MeinArray() As String, MeinString As String
    
    'Beispielzeichenkette mit Leerzeichen als Trennzeichen
    MeinString = "Eins,Zwei,Drei,Vier,Fünf,Sechs"
    
    'Die Funktion Split verwenden, um die Elemente der Zeichenkette abzutrennen
    MeinArray = Split(MeinString, ",")
    
    'Das Array in das Arbeitsblatt kopieren
    Range("A1:A" & UBound(MeinArray) + 1).Value = WorksheetFunction.Transpose(MeinArray)
End Sub