Hallo !
Ich habe diesen Code der mir über die Spalte J den höchsten Wert in der Spalte anzeigt. Das geht wunderbar - nur möchte ich, das der Code das pro jahr anzeigt.
Ich habe die Jahreszahl in Zelle F7 und das fortlaufende Datum in Spalte A ab A23 stehen.
Kann man das so einbauen, das mir der Code jeweils pro Jahr aus Zelle F7 den höchsten Wert anzeigt ?
Danke für die 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("J23: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