versuchs mal damit Sub Makro1() Dim i As Long For i = 1 To Cells(Rows.Count, "J").End(xlUp).Row With WorksheetFunction Cells(i, "N") = .Choose(WorksheetFunction.Max(Cells(8, 10).Resize(, 4)) + 1, "E", "D", "C", "B", "A") End With Next End Sub