If bSitzChange = True Then
       SitzChange
       If sNeuerBus <> "" Then
          With sevGrid8
             .DoEdit .Row, 6
             .Text(Row, 6) = sNeuerBus
             .DoEdit .Row, 7
             .Text(Row, 7) = sSitze
             .RowRefresh
          End With
       End If
       bSitzChange = False
    End If