VBA – Zeichenkette in einer Schleife durchlaufen

In diesem Tutorial zeigen wir Ihnen, wie man mit VBA eine Zeichenkette anhand einer Schleife durchlaufen kann.

Sie können in VBA Logik an einer Zeichenkette ausführen oder einzelne Zeichen daraus zurückgeben, indem Sie die Zeichenkette anhand einer Schleife durchlaufen.

Alle Zeichen in einer Zeichenkette in einer Schleife durchlaufen

Nachfolgend kommt ein Beispiel für das Durchlaufen einer Zeichenkette mit einer For-Next-Schleife und die Rückgabe jedes Zeichens in einer Meldungsbox:

Sub ZeichenketteDurchlaufen()

Dim Zaehler As Integer
Dim meineZeichenkette As String

meineZeichenkette = "AutomateExcel" 'Zeichenkette definieren

For Zaehler = 1 To Len(meineZeichenkette)
    'mit jedem Zeichen in der Zeichenkette etwas tun
    'hier werden wir jedes Zeichen in einer Meldungsbox anzeigen
    MsgBox Mid(meineZeichenkette, Zaehler, 1)
Next

End Sub

Die Len-Funktion zählt die Gesamtzahl der Zeichen in der Zeichenkette. Also der Ausdruck

For Zaehler = 1 to Len(meineZeichenkette)

durchläuft jedes Zeichen in der Zeichenkette.

Alle Zeichen einer Zeichenkette durchlaufen – Alternative

Jedes Zeichen in einer Zeichenkette lesen

In diesem Beispiel wird jedes Zeichen in einer Zeichenkette von links nach rechts gelesen und das Ergebnis in einer Meldungsbox ausgegeben. Hierbei wird die Mid-Funktion verwendet.

Sub ZeichenketteDurchlaufen()

Dim Hier_Reinschauen As String
Dim Zaehler As Integer

'Verwenden Sie hier Ihren eigenen Text
Hier_Reinschauen = "AutomateExcel.com"

For Zaehler = 1 To Len(Hier_Reinschauen)
    MsgBox Mid(Hier_Reinschauen, Zaehler, 1)
Next

End Sub

Jedes Wort in einer Zeichenkette lesen

In diesem Beispiel wird jedes Wort in einer Zeichenkette von links nach rechts gelesen und das Ergebnis in einem Meldungsfeld ausgegeben. Hierbei wird die Split-Funktion verwendet.

Sub ZeichenketteDurchlaufen2()

Dim Hier_Reinschauen As String
Dim Zaehler As Integer
Dim SplitCatcher As Variant

'Verwenden Sie hier Ihren eigenen Text

Hier_Reinschauen = "Ich mag AutomateExcel.com"

Split_Faenger = Split(Hier_Reinschauen, " ")

For Zaehler = 0 To UBound(Split_Faenger)
    MsgBox Split_Faenger(Zaehler)
Next

End Sub

<<Zurück zu den VBA-Beispielen

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!


Learn More!