If-Schleiche mit 2 mal For-Schleife

Sub beispiel() Dim x#(), y#(), i%, j% ReDim x(4) For i=1 To 4 x(i)=Cells(1+i) Next ReDim y(6) For j=1 To 6 y(j)=Cells(2+j) Next For i = 1 To 4 If x(i) = 0 And For j=1 To 6 If y(j)>=0 Then MsgBox "Stop", vbInformation, "Anweisung" Exit For End If Next j Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub beispiel() Dim x#(), y#(), i%, j%, testwert As Boolean ReDim x(4) For i = 1 To 4 x(i) = Cells(1 + i) Next ReDim y(6) For j = 1 To 6 y(j) = Cells(2 + j) Next For i = 1 To 4 If x(i) = 0 Then For j = 1 To 6 testwert = testwert Or y(i) >= 0 Next j If testwert = True Then MsgBox "Stop", vbInformation, "Anweisung" Exit For End If End If Next i End Sub

Hallo Julia,
ich vermute, da ist noch ein Gedankenfehler drinne. x(i) kann 4 und y(j) 6 Werte annehmen, es gibt also 24 Kombinationen x(i)/y(j). Du schreibst nun, dass alle x(i)=0 UND alle y(j)>=0 sein sollen. Wenn dies erfüllt ist, soll eine Meldung erfolgen.
Diese Vorgaben haben 2 Konsequenzen:
1. Es wird keine verschachtelte Schleife benötigt. Die beiden Schleifen können nacheinander durchlaufen werden.
2. Es kann keinen Schleifenabbruch geben, da ja erst dann entscheiden werden kann, ob beide Bedingungen für alle x(i) und alle y(j) erfüllt sind, wenn beide Schleifen vollständig durchgeführt wurden. Nur dann, wenn (mindestens) ein x(i) oder ein y(j) eine Bedingung nicht erfüllt, ist ein Schleifenabbruch sinnvoll möglich.
Falls ich Dich nicht richtig verstanden habe, beschreibe noch mal genau, unter welchen Bedingungen die Meldung kommen soll.
Gruß
Martin

Sub beispiel() Dim x#(), y#(), i%, j% ReDim x(2) For i=1 To 2 x(i)=Cells(1+i) Next ReDim y(6) For j=1 To 6 y(j)=Cells(2+j) Next For i = 1 To 2 If x(i) = 0 Then For j=1 To 6 If y(j)>=0 Then End If Next j MsgBox "Stop", vbInformation, "Anweisung" End If Next i End Sub

Hallo Julia,
Du denkst immer noch falsch. In Deinem Konstrukt bewirkt die innere Schleife überhaupt nicht, denn Du gibst ja nicht an, was ausgeführt werden soll, wenn die Bedingung y(j)>=0 erfüllt oder auch nicht erfüllt ist. In der äußeren Schleife ist die Bedingung x(i) = 0 zweimal erfüllt. daher bekommst Du auch die Meldung zweimal, unabhängig davon, was mit y(j) passiert.
Wenn ich Dich richtig verstehe, möchtest Du eine Meldung, wenn alle x(i) = 0 UND alle y(j)> = 0. Was soll denn passieren, wenn diese Bedingungen nicht erfüllt sind, so wie in Deinem Zahlenbeispiel?
Ich versuch's mal trotz der noch offenen Fragen:


Sub beispiel()
Dim x#(), y#(), i%, j%
ReDim x(2)
For i = 1 To 2
x(i) = Cells(1 + i)
Next
ReDim y(6)
For j = 1 To 6
y(j) = Cells(2 + j)
Next
For i = 1 To 2
If x(i)  0 Then
MsgBox "Stop! Bedingung für x(" & i & ") nicht erfüllt.", vbInformation, "Anweisung"
Exit Sub
End If
Next i
For j = 1 To 6
If y(j)

Etwas obskur erscheint mir übrigens das einlesen der Arrays. In x wird der Bereich B1:C1 und in Y der Bereich C1:H1 eingelesen, soll das so sein?
Gruß
Martin

Beliebteste Forumthreads (12 Monate)

If-Schleiche mit 2 mal For-Schleife

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread