Ich habe das folgende Programm geschrieben, dabei wollte ich die 2 minimalsten Werte herausfischen:
Sub DP()
Dim l As Integer
Dim Sum(1 To 24) As Integer
Dim i As Integer
Const N = 4
Dim f(N) As Integer
l = Range("b6").Value
f(1) = Range("b2").Value
f(2) = Range("b3").Value
f(3) = Range("b4").Value
f(4) = Range("b5").Value
For i = 1 To N
Min = f(1)
If f(i) < Min And f(i) >= 0 Then
Min = f(i)
End If
Next i
For i = 1 To N
Min2 = f(1)
If f(i) < Min2 And f(i) > =0 And f(i) >= Min Then
Min2 = f(i)
End If
Next i
End Sub
Das Problem liegt darin, dass nur der erste minimale Wert angezeigt wird und bei der zweiten Schleife erkennt es nicht, dass die Werte auch größer als der minimalste Wert sein soll. Könnt ihr mir bitte helfen? Wie kann ich das umändern?
Sub DP()
Dim l As Integer
Dim Sum(1 To 24) As Integer
Dim i As Integer
Const N = 4
Dim f(N) As Integer
l = Range("b6").Value
f(1) = Range("b2").Value
f(2) = Range("b3").Value
f(3) = Range("b4").Value
f(4) = Range("b5").Value
For i = 1 To N
Min = f(1)
If f(i) < Min And f(i) >= 0 Then
Min = f(i)
End If
Next i
For i = 1 To N
Min2 = f(1)
If f(i) < Min2 And f(i) > =0 And f(i) >= Min Then
Min2 = f(i)
End If
Next i
End Sub
Das Problem liegt darin, dass nur der erste minimale Wert angezeigt wird und bei der zweiten Schleife erkennt es nicht, dass die Werte auch größer als der minimalste Wert sein soll. Könnt ihr mir bitte helfen? Wie kann ich das umändern?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „franz.steinmeyer“ ()