Private bGridClicked As Boolean
Private bSelectCells As Boolean
 
Private Sub Form_Load()
'SevGrid füllen
With Me.sevZZ
    .LockUpdate True
    .DataMode = Mode_List
    .SelectionHide
    .FixedCol = False
    .AllowColumnSizing = False
    .AllowEdit = False
    .AllowMultiSelect = False
    .ColumnHeadersVisible = False
    .clear
 
    For i = 1 To 96
        x = (i - 1) * 15
        sHlp = Format(TimeSerial(0, x, 0), "hhmm")
        .ColumnAdd sHlp
        .Columns(sHlp).Width = 100
    Next i
 
    .LockUpdate False
 
    .AddItem ""
 
    .Refresh
 
End With
End Sub
 
Private Sub sevZZ_CellClick(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  Button As Integer, ByVal Shift As Integer)
 
With Me.sevZZ
    .RowRefresh
 
    If .ListItems(nRow).CellBackColor(nCol) = vbBlue Then 
        .ListItems(nRow).CellBackColor(nCol) = vbWhite
        bSelectCells = False
    Else
        .ListItems(nRow).CellBackColor(nCol) = vbBlue
        bSelectCells = True
    End If
 
End With
 
'kennzeichen das ein Click ausgeführt wurde, wird im Mousemove wieder 
' zurückgesetzt wenn der Button=0  ist
bGridClicked = True
 
End Sub
 
Private Sub sevZZ_OnMouseMove(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  Button As Integer, ByVal Shift As Integer, sToolTip As String)
 
If bGridClicked = True And Button > 0 Then
 
    With Me.sevZZ
        If bSelectCells = True Then
            .ListItems(nRow).CellBackColor(nCol) = vbBlue
        Else
            .ListItems(nRow).CellBackColor(nCol) = vbWhite
        End If
    End With
 
End If
 
 
If Button = 0 Then
    bGridClicked = False
End If
 
End Sub