AW: Höchsten Wert im Bereich makieren
Volker
Hallo Heino,
zum variablen Bereich:
Du hast z.B. die Var spalte1, spalte2, zeile1 und zeile2.
Zuordnung z.B.: spalte1=activecell.column oder zeile2=activecell.row
Damit kannst Du einen Zellbereich
Range(cells(zeile1,spalte1),cells(zeile2,spalte2))
basteln
Maximum = WorksheetFunktion.Max(range(cells(zeile1,spalte1),cells(zeile2,spalte2)) übergibt den Maxwert deines Zellbereiches an die Var Maximum
Application.WorksheetFunction.CountIf(range(cells(zeile1,spalte1),cells(zeile2,spalte2)),Maximum) zählt, wie oft der Wert in dem Bereich vorkommt.
mal konkret:
(zeile1/2 und spalte1/2 hast Du schon zugewiesen)
Sub zähle_maximum
Maximum = WorksheetFunktion.Max(range(cells(zeile1,spalte1),cells(zeile2,spalte2))
if Application.WorksheetFunction.CountIf(range(cells(zeile1,spalte1),cells _ (zeile2,spalte2)),Maximum)>1 then
msgbox( Hier kannst Du mal in die Hilfe schauen !)
endif
End Sub
Gruß auch an die Hannelore ;-)
Volker