Maximum von 4 Zellen
16.03.2004 13:28:37
TinoB
hätte wieder folgendes problem und hoffe ihr könnt mir helfen. ich suche das maximum von 4 zellen, hier im bsp von K20 bis N20. Dieses ergbnis soll aber nicht als MsgBox ausgegeben werden sondern in die SpalteZ der gleichen Zeile geschrieben werden. und das ganze nicht nur für die Zeile20 sondern ab dieser bis zur ersten Leerzeile. könnte mir da jemand helfen?
Danke
Tino
Sub Maximum()
Dim c As Range
For Each c In [K20:N20]
If c = WorksheetFunction.max([K20:N20]) Then
MsgBox c.Address(0, 0) & " " & c.Value
End If
Next
End Sub
Anzeige