Wie knackt man eine Textwurst? Zum Beispiel diese: „a b c d e f g“ – ich hätte gerne mundgerechte Häppchen, immer bis zum nächsten Leerzeichen.
Eine einfache Methode gibt’s mit VBA:
Public Sub ArrayBsp() Dim TextVar As Variant 'TextVar ist mal Variant, damit kann noch viel daraus werden Dim I As Long 'I brauchen wir als Laufvariable, um das Ergebnis zu demonstrieren 'Jetzt wird es ernst: TextVar = Split("a b c d e f g", " ") 'Die Funktion Split teilt eine Textwurst überall dort, wo der als zweites Argument 'übergebene Begrenzungsstring (hier das Leerzeichen) auftritt. Weitere mögliche Argumente: 'Maximalanzahl der Retouren, Art des Vergleichs (binär oder Text) 'Das Ergebnis ist ein eindimensionales Array - das heißt, TextVar verwandelt sich hier in ein Array For I = UBound(TextVar) To 0 Step -1 'Weil TextVar ein Array geworden ist, kann ich mit UBound seinen höchsten Index bestimmen, 'Untergrenze ist 0 Range("A" & (I + 1)) = TextVar(UBound(TextVar) - I) 'Ausgabe in eine Excel-Tabelle (zu Demozwecken) Next I End Sub