Wie verwende ich die Split-Funktion in VBA?

In VBA (Visual Basic for Applications) wird die `Split`-Funktion verwendet, um einen String in ein Array von Substrings zu zerlegen, basierend auf einem angegebenen Trennzeichen. Hier sind die grundlegenden Schritte zur Verwendung der `Split`-Funktion:

Syntax der Split-Funktion

Split(Expression, [Delimiter], [Limit], [Compare])
  • Expression: Der zu zerlegende String. Dies ist ein erforderliches Argument.
  • Delimiter: Das Zeichen, anhand dessen der String aufgeteilt wird. Dies ist ein optionales Argument. Wenn es weggelassen wird, wird das Leerzeichen (” “) als Standard-Trennzeichen verwendet.
  • Limit: Die maximale Anzahl von Substrings, in die der ursprüngliche String zerlegt werden soll. Dies ist ein optionales Argument. Der Standardwert ist -1, was bedeutet, dass der String vollständig aufgeteilt wird.
  • Compare: Optional. Gibt den Vergleichstyp an. Die Optionen sind `vbBinaryCompare` (0, binärer Vergleich) und `vbTextCompare` (1, Textvergleich).

Beispiel

Hier ist ein einfaches Beispiel, in dem die `Split`-Funktion verwendet wird, um einen durch Kommas getrennten String in ein Array zu zerlegen:

Sub BeispielSplit()
    Dim meinString As String
    Dim resultArray() As String
    Dim i As Integer
    
    meinString = "Apfel,Orange,Banane,Traube"
    
    ' Split-Funktion verwenden
    resultArray = Split(meinString, ",")
    
    ' Durch das resultierende Array iterieren und die Elemente ausgeben
    For i = LBound(resultArray) To UBound(resultArray)
        Debug.Print resultArray(i)
    Next i
End Sub

Erläuterungen

  • In diesem Beispiel enthält `meinString` einen durch Kommas getrennten String.
  • Die `Split`-Funktion teilt `meinString` bei jedem Komma in ein Array namens `resultArray`.
  • Eine Schleife wird verwendet, um jedes Element des Arrays im Direktfenster (durch `Debug.Print`) auszugeben.

Sie können diese Methode anpassen, indem Sie verschiedene Trennzeichen verwenden oder die `Limit`- und `Compare`-Parameter ändern, je nach Ihren Anforderungen.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project