kein eindeutiges Minimum
14.01.2006 15:13:45
Vera
ich möchte, dass ein Bereich nach dem Minimum durchsucht wird und die Adresse dieses Minimum (also Zeile und Spalte) ausgegeben werden. Außerdem soll dann der Minimalwert mit einer großen Zahl überschrieben werden (siehe Code unten). Frage: Wie kann ich erreichen, dass - wenn es mehr als ein Minimum im Bereich gibt - trotzdem nur ein Wert überschrieben wird? Ich will im Prinzip also, dass nach dem ersten gefundenen Minimum Schluss mit der Suche ist und einfach dieser eine Wert ausgegeben wird (bzw. dessen Adresse).
Vielen Dank für eure Hilfe!
Vera
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = ActiveSheet.Range(Cells(1, 1), Cells(12, 12))
Dim wertmin As Double
wertmin = Application.WorksheetFunction.min(Bereich)
For Each Zelle In Bereich
If Zelle.Value = wertmin Then Zelle.Select
Selection.Value = "999"
a = ActiveCell.Row
b = ActiveCell.Column