Hallo !
Ich habe diesen Code um einer meiner Umfangreichen Liste aus der Spalte J den Höchstbetrag zu ermitteln und auch dort hinzuspingen. Am Anfang waren es nur 2 Jahre, doch nun werden es in der Zwischenzeit schon etliche.
Kann man den Code so verändern, das man über die Gesamtzeit den Höchstbetrag auslesen kann oder von jedem einzelnen Jahr (2020 - ..... Die Jaheszahl steht im Feld F7.
Danke für Eure Hilfe
chris58

Sub huepf_hin()
Dim X As Long, lz1 As Long, rng As Range
With Application
lz1 = Cells(Rows.Count, "J").End(xlUp).Row
Set rng = Range("J22:J" & lz1)
X = .Match(.Max(rng), rng, 0)
Application.Goto rng.Cells(X), True
rng.Interior.ColorIndex = xlNone
rng.Cells(X).Interior.ColorIndex = 33
End With

ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A2").Select

End Sub