wie kann ich, ausgehend von der momentanen Zellposition, die Spalte nach unten hin überprüfen, ob noch kleinere Werte vorkommen als der Zellwert der momentan ausgewählten Zelle?
Karsten
Sub Min_ab_Pos()
Dim dblMin As Double
Dim rngBer As Range
With ActiveCell
Set rngBer = Range(.Offset(1), _
.Offset(.CurrentRegion.Rows(.CurrentRegion.Rows.Count).Row - .Row))
If WorksheetFunction.Min(rngBer) < .Value Then
MsgBox "Es gibt noch kleinere Werte!"
Else
MsgBox "Das ist der kleinste Wert ab Position " & .Address(0, 0) & "!"
End If
End With
End Sub