Kleine "Besonderheiten" mit VBA

[knobbi38]

Hallo,

hier mal etwas zum Ausprobieren, was nicht ganz so offensichtlich ist:

Code: Alles auswählen

Sub Test_Schleife()
  Dim i As Long
  Dim v As Variant
  Dim avnt(1 To 10) As Variant
 
  For i = 1 To 10
    avnt(i) = i
  Next i
  Debug.Print "i1="; i
    
  For i = 1 To 10
    If i = 5 Then Exit For
  Next i
  Debug.Print "i2="; i

  For Each v In avnt()
    '
  Next
  Debug.Print "v1="; v
 
  For Each v In avnt()
    If v = 5 Then Exit For
  Next
  Debug.Print "v2="; v
End Sub

Wer erkennt den Unterschied zwischen For-Next und For-Each?

Gruß Knobbi38

aus einem Beitrag von mir in einem anderen Forum

[d'r Bastler]

Moin Knobbi,

mein erstes Aha-Erlebnis aus Deinem Code ist auf jeden Fall mal, dass man nicht nur Objekte wie Worksheets, Shapes oder Items per Each durchlaufen kann, sondern sogar einfachste Arrays/Variants - und das ganz ohne aufwändiges Füllen des Datenfeldes. Aber damit willst Du sicher nicht gelangweilt werden.

Zweite Idee: Deine Each-Variante liefert nur den Ausnahme-Wert 5, die Next-Version Ausnahme und Iterator + 1.

Beides kann je nach Aufgabe sinnvoll/gewünscht sein, wobei die Each-Version einen bestimmten Wert schneller findet.
Ich hoffe, wenigstens ungefähr Deine Frage beantwortet zu haben.

Nun des Bastlers naive Gegenfrage: Was willst du uns damit sagen?

Liebe Grüße

[knobbi38]

Hallo d'r Bastler,

Was willst du uns damit sagen?

Etwas auf die Unterschiede eingehen, bei der Verwendung von einem Iterator und einer Schleifenvariable in eine For-Next Schleife. Der Einfachheit halber wird oft eine Schleifenvariable verwendet, um zu erkennen, ob eine Schleife vorzeitig verlassen oder bis zum Ende durchlaufen wurde. Die Schleifenvariabel in einer For-Next Schleife hat nach Verlassen der Schleife immer einen definierten Wert, wohingegen bei einer For-Each Iteration dieser nicht unbedingt definiert sein muss, sondern z.B. bei Objekten den Wert Nothing annehmen kann. Dieses ist bei einer Prüfung zu beachten und muss ggf. abgefangen werden.

Auch wenn es um Performance geht, sollte geprüft werden, welches der beiden Verfahren geeigneter ist - sie kann sich manchmal erheblich unterscheiden.

Grüße
Knobbi38