Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Allgemein / Entwicklung / ForNext

Alphanumerische Schleifen

Möchte man einen Code-Abschnitt für verschiedene Werte durchlaufen, die nicht-numerisch sind oder keine Reihe bilden (sonst könnte ja auch eine For-Next-Schleife verwendet werden), so kann man sich folgenderweise behelfen:
Dim Monat As Variant

For Each Monat In Array("Jan.", "Feb.", "März", "...", "Dez.")
  Print "bla bla "; Monat; " bla bla"
Next Monat

© Jost Schwider, 30.04.2000-01.05.2000 - http://vb-tec.de/fornext.htm