1: 2: 3: 4: 5: 6:
Für i = (Me.LstRHFGrants.ListCount + 1) zu ((Me.LstRHFGrants.ListCount + 1) + 4) Jahr = Jahr + 1 Mit Me.LstRHFGrants .AddItem (grantdesc u. „; “ u. Jahr) Ende mit Zunächst