Sub Andreas() Dim Zaehler As Long, lngAnz As Long ReDim arrSpeicher(lngAnz) As Variant For Zaehler = 1 To 3 arrSpeicher(lngAnz) = CDbl(Cells(Zaehler, 1)) lngAnz = lngAnz + 1 ReDim Preserve arrSpeicher(lngAnz) Next Cells(1, 2) = Application.Match(Application.Min(arrSpeicher), arrSpeicher, 0) End Sub
58.4k Fragen
249k Antworten
7k Nutzer