If und For zusammen?

Hallo zusammen.
Ich habe hier ein Teil meines Programm, alles funktionier bis auf dieses Teil hier unten.
Es soll folgendes passieren:
Es soll überprüft werden, ob der Vektor langrange alle positiven Einträrge hat, wenn nicht, dann soll diese Meldung
MsgBox "Kein KKT-Punkt." & vbCrLf & "Fürhen Sie bitte den Schritt 2 durch!", vbInformation + vbOKOnly
und eine Wertzuweisung
Range(Cells(15 + n + m + 10 + p, 4 + n + 2 * m), Cells(15 + n + m + 10 + p, 4 + n + 2 * m)).Select
Selection.Value = "nein" kommen.
Wenn doch, also wenn lagrange komplett positiv ist, dann muss noch geprüft werden ob berechnung=0 ist, und dann wenn diese beide Bedingungen erfüllt sind, die Meldung
MsgBox "Ein KKT-Punkt." & vbCrLf & "Ihr Optimierer ist der x", vbInformation + vbOKOnly
mit
Range(Cells(15 + 10 , 4 ), Cells(15 + 10 , 4 )).Select
Selection.Value = "ja"
ausgeben.
Es funktioniert aber nicht, und ich weiss nicht woran es liegen kann.


Public Sub Schritt_2()
Dim lagrange#()
Dim berechnung%
berechnung=0
ReDim lagrange(m)
For j = 1 To m
lagrange(j) = Cells(15 , j)
Next j
For j = 1 To m
If lagrange(j)

Es müssen also beide Bedingungen erfüllt sein um entsprechende Meldung (mit "ja") ausgeben zu dürfen, ansonsten muss die andere Meldung (mit "nein") kommen.
Ich werde mich sehr freuen, wenn mir jemand helfen könnte.
Gruß
Julia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub Schritt_2() Dim lagrange#() Dim berechnung% Dim m As Integer, j As Integer, n As Integer, p As Integer ' Deklarationen fehlten m = 5 ' Test n = 2 ' Test p = 3 ' Test berechnung = 0 ReDim lagrange(m) For j = 1 To m lagrange(j) = Cells(15, j) Next j For j = 1 To m If lagrange(j) m And berechnung = 0 Then MsgBox "Ein KKT-Punkt." & vbCrLf & "Ihr Optimierer ist der x", _ vbInformation + vbOKOnly Cells(15 + 10, 4) = "ja" End If End Sub

Hallo Julia,
versuchs mal so (ungetestet):
</p><pre>Public Sub Schritt_2()
Dim lagrange#()
Dim berechnung%
berechnung = 0
ReDim lagrange(m)
For j = 1 To m
lagrange(j) = Cells(15, j)
Next j
For j = 1 To m
If lagrange(j) < 0 Then
MsgBox "Kein KKT-Punkt." & vbCrLf & "Fürhen Sie bitte den Schritt 2 durch!", vbInformation + vbOKOnly
Range(Cells(15 + n + m + 10 + p, 4 + n + 2 * m), Cells(15 + n + m + 10 + p, 4 + n + 2 * m)) = "nein"
Exit For 'nur, wenn beim ersten negativen Wert abgebrochen werden soll
End If
Next j
If berechnung <> 0 Then
MsgBox "Kein KKT-Punkt." & vbCrLf & "Fürhen Sie bitte den Schritt 2 durch!", vbInformation + vbOKOnly
Range(Cells(15 + n + m + 10 + p, 4 + n + 2 * m), Cells(15 + n + m + 10 + p, 4 + n + 2 * m)) = "nein"
Else
MsgBox "Ein KKT-Punkt." & vbCrLf & "Ihr Optimierer ist der x", vbInformation + vbOKOnly
Range(Cells(15 + 10, 4), Cells(15 + 10, 4)) = "ja"
End If
End Sub</pre><p>
Achtung: Berechnung = 0 ist bei Deinem Code immer erfüllt, da dies am Anfang so gesetzt und dann während des Ablaufs nicht mehr geändert wird.
Gruß
Martin

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread