debug.print bei For..each Verständnisfrage
18.03.2018 16:12:06
Michael
ich habe folgende Verständnisfrage:
Bei einem Code (der funktioniert) soll einfach geschaut werden ob in einer bestimmten Zelle (F6) ein Wert eines Arrays (in dem Fall entweder "Pizza" oder "Döner" vorkommt.
Durch die For...each-Schleife müsste ja dann eigentlich immer erst nach der Pizza und dann nach dem Döner gesucht werden. Ich verstehe deshalb nicht warum bei debug.print (element) nur der Döner erscheint.
Müsste das nicht
Pizza
Döner
stehen?
Beste Grüße und vielen Dank im Voraus
Michael
Sub IfElse3()
Dim lngCriteriaCount As Long
Dim arrCriteria() As String
Dim element As Variant
lngCriteriaCount = 2
ReDim arrCriteria(0 To lngCriteriaCount - 1)
arrCriteria(0) = "Pizza"
arrCriteria(1) = "Döner"
For Each element In arrCriteria()
If element = Range("F6").Value Then
Debug.Print (element)
result = "Siiii :)"
Range("G6").Value = result
Exit Sub
Else
result = "Noooo :("
End If
Next element
Range("G6").Value = result
End Sub