Nur Minimum eintragen
alifa
Wie muss ich mein Makro umstellen, damit nur die Zeile ausgegeben wird, wo c minimal ist. In _ diesem Beispiel also 1?
Sub istMinim()
Cells.ClearContents
Dim a%, b%, c%, z%
For a = 1 To 9
For b = 1 To 9
c = a * b
Cells(z + 1, 1) = c
Cells(z + 1, 2) = a
Cells(z + 1, 3) = b
z = z + 1
Next: Next
MsgBox WorksheetFunction.Min(Range("A1:A100"))
End Sub
Das hier ist ein ganz einfaches Beispiel, um das Problem klar darzustellen. Im Netz finde ich viele Beispiele mit Min, aber keines, wo keine Werte in der Tabelle stehen und nur der gesuchte Wert eingetragen wird.
Die Befehlszeile mit der MsgBox entfällt dann. Folgendes Ergebnis wäre in meinem Sinne: A1=1;B1=1;C1=1
VG, Alifa