Thomas Risi Softwareentwicklung
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
|
Copyright © 2001 - by Thomas Risi