Thomas Risi Softwareentwicklung

Zelle mit höchstem Wert markieren

Aus einer Frage in einem Forum ...

Beim Aktivieren des Tabellenblattes soll die Zelle aus den Zellbereichen (B4:B28, I4:I28, O4:O28) selektiert werden, die den höchsten Wert (Zahl) besitzt.

Option Explicit Private Sub Worksheet_Activate() SelectMaximum(Union(Range("B4:B28"), Range("I4:I28"), Range("O4:O28"))).Select End Sub Private Function SelectMaximum(rng As Excel.Range) As Excel.Range On Error Resume Next Dim item As Excel.Range For Each item In rng If item.Value > SelectMaximum.Value Then _ Set SelectMaximum = item Next End Function

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)