#VBA #Array #Split


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

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-)
Dieser Beitrag wurde unter VBA abgelegt und mit , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s