With sevGridPersonal.ListItems(nRow)
        'get Personalstammsatz and get back the field "Führungskompetenz"
        nPersID = Val(.CellText("PersonalID"))
        nPersNr = Val(.CellText("PersonalNr"))
        'Show balloon incl. the rest of competences of leaders
        varRetValue = GetBalloonsTextPersTab(nPersID, nPersNr, _
          ID_BALLOON_LEADERSCOMPETENC)
        intI = 1
        Do While varRetValue(intI) <> ""
          strBalloonMsg = strBalloonMsg & " " & varRetValue(intI) & Chr(13)
          intI = intI + 1
        Loop
        If intI > 2 Then BalloonMessage211.DisplayMessage lX, lY, _
          strBalloonMsg, "Mögliche Führungskompotenzen...", 1
      End With