Hi Martin,

Thanks for your Support.... I found my Mistake. Using a German Window-
Setup
I had to change the Worksheet Comand "IF" to the German Command
"WENN".

Now I don't get the error anymore and it seems to work.
I now do have the issue that on a BLANK cell in the Collumn "GERADE" I
do get
the Output "STAR"...Maybe I can find a workaround..

I will also try Ollys Solution, not exactely knowing how it will work.
( Thanks Olly )

However...these seem to be Worksheet Solutions, where I have to ensure
that
the Formulas are correctly embeded.
We have many useres who enter and Delete Names, change Majors etc...
and I am afraid that inserting new Rows or names, somebody will not
think
of the formulas.

Do you guys have any ideas how I could accomplish the Task with a
function
or a routine that would be triggered at Data-Entry
( Workscheet.Cahange-Event ) ?
That way I would not have to worry about formulas in any of the Cells.
( Similar to my Calculate_GPA Routine in the Worksheet Change event )

Here again my event.
---------------------------------------------------------------------------*-------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column 5 And Target.Row 3 Then
RememberRow = Target.Row
Calculate_GPA
End If

End Sub


' I use a public variable (RememberRow ) to store Target.Row. because
the event changes the focus of the active
' cell after the user hits Enter.
' In my procedure "Calculate_GPA" I use this variable for calculating
and writing the GPA in the correct Cell.
---------------------------------------------------------------------------*-------


Thansk a bunch for the Time you spent on my Challange ;o)