Public Sub Test()
iMin = Application.Min(aTemp)
For iIndx = LBound(aTemp) To UBound(aTemp)
If aTemp(iIndx) = iMin Then
bGefunden = True
Exit For
End If
Next iIndx
If bGefunden = True Then
MsgBox "Gefunden in Position " & iIndx
Else
MsgBox "das Minimum " & iMin & " wurd nicht gefunden."
End If
End Sub
Option Explicit
Sub Test2()
Dim arrD(5) As Double, dblMin As Double
Dim arrI() As String, zz As Long, ii As Long
' Testwerte
arrD(0) = 0.7: arrD(1) = 1.7: arrD(2) = 1.7
arrD(3) = 0.7: arrD(4) = 0.7: arrD(5) = 1.7
dblMin = Application.Min(arrD)
ReDim arrI(1 To UBound(arrD) + 1 - LBound(arrD))
For zz = LBound(arrD) To UBound(arrD)
If arrD(zz) = dblMin Then
ii = ii + 1
arrI(ii) = zz
End If
Next zz
ReDim Preserve arrI(1 To ii)
MsgBox "Gefunden an den Positionen " & Join(arrI, ", ")
End SubDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen