Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
© 2001 -
by Thomas Risi