Maximum von 4 Zellen

Forumthread: Maximum von 4 Zellen
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Maximum von 4 Zellen

16.03.2004 14:28:37

TinoB

hallo leute,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Lösung für alle dies interessiert

16.03.2004 14:50:31

TinoB

Lösung für alle dies interessiert

16.03.2004 14:50:31

TinoB

habe mir eben diese lösung zusammengebastelt, ist dies so ok, oder gibt es eine bessere?


Sub max()
Dim intRow As Integer
intRow = Sheets("Ausgabe").Cells(Rows.Count, 1).End(xlUp).Row
Range("Ausgabe!AD20").FormulaLocal = "=MAX(K20;L20;M20;N20)"
Range("Ausgabe!AD20:AD" & intRow).FillDown
Range("Ausgabe!AD:AD") = Range("Ausgabe!AD:AD").Value
End Sub

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!