Ich wuerde gerne in eine Zelle (4686,3) das Maximum aus 360 Zellen hineinschreiben lassen, welche sich alle 13 Zeilen ebenfalls in Spalte 3 befinden, also das Max aus den Zellen (13,3), (26,3), usw.... Hab versucht durch aufzeichnen und Einfügen einer for...next-schleife dies zu lösen (s.u.), aber läuft natürlich nicht.Bitte um Hilfe, vielen Dank, Ramon
Sub Umhüllende()
Range("C4686").Select
For i = 1 To 360
ActiveCell.FormulaR1C1 = "=MAX(R[4693-13*i]C)"
Next i
End Sub