Maximum einer Zeile ermitteln und makieren
04.07.2004 13:41:55
Harald
habe ein Problem und weiß überhaupt nicht an was es liegen könnte. Ich möchte bei einer Zeile nach dem Maximum suchen lassen und diesen Wert dann hervorheben durch eine fette Makierung.
Leider wird schon ein falsches Maximum ermittelt aber nicht mal das wird makiert.
Hoffe, jemand kann mir helfen.
Gruss Harald
Sub Max()
'Zelle nimmt Maximum auf
Cells(1, 1).Value = WorksheetFunction.Max _
(Range(Cells(2, 4), Cells(11, 4)))
'Über Schleife erfolgt Kontrolle ob Wert mit Maximum übereinstimmt
Cells(2, 4).Select
For i = 0 To 10
If ActiveCell.Offset(0, i).Value = Cells(1, 1).Value Then ActiveCell.Offset(0, i).Font.Bold = True
Next i
End Sub
Anzeige