Trennung von Feldinhalten

Frage: 

Wie werden Feldinhalte nach dem ersten (x-ten) Leerzeichen getrennt? 

Antwort: 

Sie können die folgende Funktion benutzen: 

Public Function TextAbXtenLeerzeichen(x As Integer, str As String) As String 
    If x < 0 Then Exit Function 
    If x = 0 Then TextAbXtenLeerzeichen = str: Exit Function 
    If Len(Nz(str, "")) = 0 Then Exit Function 
    Dim i As Integer 
    i = 0 
    Dim p As Integer 
    p = InStr(str, " ") 
    If p = 0 Then Exit Function 
    TextAbXtenLeerzeichen = TextAbXtenLeerzeichen(x - 1, Mid(str, p + 1)) 

End Function

Fügen Sie den Text der Funktion einfach in ein beliebiges Modul ein. Zum Test der Funktion können Sie die folgenden Anweisungen in das Direktfenster eingeben (die jeweils 2. Zeile zeigt das Ergebnis der Funktion): 

? TextAbXtenLeerzeichen(0,"Hallo Ihr Leute") 
Hallo Ihr Leute 
? TextAbXtenLeerzeichen(1,"Hallo Ihr Leute") 
Ihr Leute 
? TextAbXtenLeerzeichen(2,"Hallo Ihr Leute") 
Leute