AcitveCell.Offset(1, 0).Select ActiveCell.Value = Name ActiveCell.Offset(0, 1).Select ActiveCell.Value = Durchschnittspunktezahl ActiveCell.Offset(0, 1).Select ActiveCell.Value = Datum