'überprüft ob in mehreren spalten narkiert wurde
                col = frmKKMain.dgvZWK_V2_VP.SelectedCells(0).ColumnIndex
                For i = frmKKMain.dgvZWK_V2_VP.GetCellCount( _
                  DataGridViewElementStates.Selected) - 1 To 0 Step -1
 
                    If col <> frmKKMain.dgvZWK_V2_VP.SelectedCells( _
                      i).ColumnIndex Then
                        MsgErr("Sie dürfen nur in einer Spalte auswählen")
                        Exit Sub
                    End If
 
                Next i
 
                'zählt die selektierten "Zeilen"
                row = frmKKMain.dgvZWK_V2_VP.SelectedCells(0).RowIndex
                For i = frmKKMain.dgvZWK_V2_VP.GetCellCount( _
                  DataGridViewElementStates.Selected) - 1 To 0 Step -1
                    If row <> frmKKMain.dgvZWK_V2_VP.SelectedCells( _
                    i).RowIndex Then
                        anzrow = anzrow + 1
                    End If
                Next i
 
                If MsgBox("Sie beabsichtigen " & anzrow.ToString & "" & _
                  "Vorperiodenproben zu löschen ???" _
                          & vbCrLf & "Dies können sie nicht Rückgängig machen!" _
                          , MsgBoxStyle.Critical + MsgBoxStyle.YesNo, _
                          "Warnung") = MsgBoxResult.No Then
                    '--- nein ---
                    Exit Sub
                End If
 
                Warten(StartStopAuswahl.W_START)
 
                '--- ja ---
                For i = frmKKMain.dgvZWK_V2_VP.GetCellCount( _
                  DataGridViewElementStates.Selected) - 1 To 0 Step -1
 
                    frmKKMain.dgvZWK_V2_VP.Rows.RemoveAt( _
                      frmKKMain.dgvZWK_V2_VP.SelectedCells(i).RowIndex)
 
                Next i
 
Warten(StartStopAuswahl.W_STOP)