Select Case uidoc.FieldGetText("posZaehler") Case "1" If doc.GetItemValue("posParaphe1") <> "" Then uidoc.FieldSetText("posMitzeichner1Doku", user) End If Case "2" If doc.GetItemValue("posParaphe2") <> "" Then uidoc.FieldSetText("posMitzeichner2Doku", user) End If Case "3" If doc.GetItemValue("posParaphe3") <> "" Then uidoc.FieldSetText("posMitzeichner3Doku", user) End If Case "4" If doc.GetItemValue("posUnterschrift1") <> "" Then uidoc.FieldSetText("posSchlusszeichner1Doku", user) End If Case "5" If doc.GetItemValue("posUnterschrift2") <> "" Then uidoc.FieldSetText("posSchlusszeichner2Doku", user) End If End Select