Ich Google und hantiere schon fast seit einem knappen Monat und komme kaum vorwärts :(
Ich habe eine Excelliste in der in der ersten Zeile Referenznummern stehen.
Und in der 17. Zeile Millimeter Angaben, wobei nur der größte Wert in die erste Zeile ausgeschnitten und eingefügt werden soll.
Also solange die Referenz gleich und innerhalb der Schleife ein Wert größer ist als der Wert am Anfang der Schleife, dann soll dieser ausgeschnitten und in die erste Zeile eingefügt werden. Ich hoffe es ist verständlich genug :P
Hier ist der Code den ich bisher habe:
Sub Trans20072017()
Dim Z1 As Long, Z2 As Long, S1 As Long
Application.ScreenUpdating = False
S1 = 2
Z2 = 2
For Z1 = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(Z1, 1) = Cells(Z1 - 1, 1) Then
Cells(Z1 - 1, 17) = Application.Max(Range(Cells(Z2,17),Cells(Rows.Count,17).End(xlUp)))
End If
Next
End Sub