Die Zeilennummer einer Zelle mit minimalem Wert aus einer Spalte auslesen

[Gast]

Hallo,

als VBA Neuling komme ich einfach nicht weiter, bei einem vermeintlich leichtem Problem.
Ich würde gerne die Zeilennummer einer Zelle mit minimalem Wert aus einer Spalte auslesen.

bisher ist meine Idee folgende:

rown = (zelle mit dem geringsten wert aus spalte p).Row

leider komme ich nicht weiter.

Ein Beispiel könnte so aussehen

Spalte p

4
6
2
7
5

dann soll als Ergebnis der Wert der 3 (also die dritte Zeile) herauskommen.

Kann mir bitte jemand helfen?

Gruß

[m00nl8]

Noch nicht perfekt. Das mit dem Maximalwert ist unschön. Fuktioniert aber.


Sub test()

Dim pSpalte As Integer
Dim i As Integer
Dim zeile1 As Integer
Dim ergebnis As Integer



pSpalte = 1 'hier die gewünschte Spaltennummer eintragen
i = 1 'die Zeile bei der das Makro starten soll
zeile1 = 9 'hier den Maximalwert eintragen

Do Until Cells(i, pSpalte).Value = ""

Cells(i, pSpalte).Activate

If Cells(i, pSpalte).Value < zeile1 Then

zeile1 = Cells(i, pSpalte).Value
ergebnis = Cells(i, pSpalte).Row

End If

'Zählvariable erhöhen
i = i + 1

'Führe den Loop aus, bis leere Zeilen kommen.
Loop

MsgBox (ergebnis)

End Sub