Private Sub sevGrid3_CellClick(ByVal nRow As Long, _
  ByVal nCol As Long, _
  ByVal Button As Integer, _
  ByVal Shift As Integer)
 
  If Button <> vbRightButton Then
     sSitzbuchung = ""
     If nCol = 3 Then
        If sevGrid3.Text(nRow, 4) <> "0" Or sevGrid3.Text(nRow, 5) <> 0 Then
           MsgBox "Der Platz " & sevGrid3.Text(nRow, 3) & " ist nicht buchbar"
           Exit Sub
        Else
           sSitzbuchung = sevGrid3.Text(nRow, 3)
           SitzBuchen
           Exit Sub
        End If
     Else
        If nCol = 9 Then
           If sevGrid3.Text(nRow, 10) <> "0" Or sevGrid3.Text(nRow, 11) <> 0 Then
              MsgBox "Der Platz " & sevGrid3.Text(nRow, 9) & " ist nicht" & _
                "buchbar"
              Exit Sub
           Else
              sSitzbuchung = sevGrid3.Text(nRow, 9)
              SitzBuchen 
              Exit Sub
           End If
        Else
           If nCol = 16 Then
              If sevGrid3.Text(nRow, 17) <> "0" Or sevGrid3.Text(nRow, 18) <> 0 Then
                 MsgBox "Der Platz " & sevGrid3.Text(nRow, 16) & " ist nicht" & _
                   "buchbar"
                 Exit Sub
              Else
                 sSitzbuchung = sevGrid3.Text(nRow, 16)
                 SitzBuchen
                 Exit Sub
              End If
           Else
              If nCol = 22 Then
                 If sevGrid3.Text(nRow, 23) <> "0" Or sevGrid3.Text(nRow, _
                   24) <> 0 Then
                    MsgBox "Der Platz " & sevGrid3.Text(nRow, 22) & " ist nicht" & _
                    "buchbar"
                    Exit Sub
                 Else
                    sSitzbuchung = sevGrid3.Text(nRow, 22)
                    SitzBuchen
                    Exit Sub
                 End If
              End If
           End If
        End If
     End If
  End If
End Sub
 
Private Sub SitzBuchen()
    With sevGrid4
        If .IsEditMode() = MODE_EDIT Then
           .Text(Grid4Row, 7) = sSitzbuchung
        Else
           .CellNew("RtnSitzHin") = sSitzbuchung
        End If
    End With
End Sub