Maximum in markiertem Bereich finden
21.07.2004 08:59:01
Jens
ich versuche mich gerade an dem simplen Problem in einem markiertem Bereich das Maximum zu finden. Das Problem ich weiss nicht, wie ich den markierten Bereich einlese?
schonmal Danke
p.s. soviel bereits ereldigt, jetzt fehlt lediglich die Markierung -> also nicht fest von A1 bis A20 sondern flexibel.
Sub max()
Dim SuBe As Range
Dim s As String
Set myRange = Worksheets("Tabelle1").Range("A1:A20")
answer = Application.WorksheetFunction.max(myRange)
s = answer
Set SuBe = Range("A1:A20").Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then _
MsgBox "Zelladresse: " & SuBe.Address(False, False) & vbLf & "Zielwert: " & answer
End Sub
Anzeige