Ich suche aus dem Range("ABC"), die Zell-Adresse, welche den kleinsten Wert (nicht aber Null) enthält.
Ich habe im Internet folgenden Code gefunden, der auch funktioniert.
Nur scheint das (Application.WorksheetFunction.small) erst ab Office 2013 zu klappen.
Ich habe zwei Fragen:
- Wie kann die Problemlösung ohne die Worksheet
Function SMALL bewerkstelligt werden?
- Was ist das Gegenstück zu SMALL - was liefert die Zelle mit dem höchsten Wert?
Danke und Gruss, Peter
Sub MinimumOhneNull()
Dim rngBereich As Range
Dim dblMin As Double
Set rngBereich = Worksheets("Tabelle1").Range("ABC")
With Application.WorksheetFunction
dblMin = .Small(rngBereich, .CountIf(rngBereich, 0) + 1)
MsgBox rngBereich.Cells(.Match(dblMin, rngBereich, 0)).Address
End With
End Sub