Option Explicit
 
Dim bExitSub As Boolean
Dim nOldRow As Long
 
Private Sub Form_Load()
  With MSFlexGrid1
    .Move 200, 200, 6000, 4000
    .Rows = 8
    .Cols = 5
    nOldRow = .Row
    ZeileMarkieren .Row, True
    .Col = 1
    .Row = 1
  End With
End Sub
 
 
Private Sub ZeileMarkieren(ByVal nRow As Long, ByVal bSelect As Boolean)
  Dim iCol As Integer
  Dim nColor As Long
 
  With MSFlexGrid1
    nColor = IIf(bSelect, vbButtonFace, .BackColor)
    bExitSub = True
    .Redraw = False
    .Row = nRow
 
    For iCol = .FixedCols To .Cols - .FixedCols
      .Col = iCol
      .CellBackColor = nColor
    Next iCol
 
    .Redraw = True
    bExitSub = False
  End With
End Sub
 
Private Sub MSFlexGrid1_RowColChange()
  If bExitSub Then Exit Sub
 
  'Ab hier deine Anweisungen
End Sub
 
Private Sub MSFlexGrid1_SelChange()
  Dim nRow As Long
  Dim iCol As Integer
 
  With MSFlexGrid1
    If .Row <> nOldRow Then
      nRow = .Row
      iCol = .Col
      ZeileMarkieren nOldRow, False
      ZeileMarkieren nRow, True
      .Row = nRow
      .Col = iCol
      nOldRow = nRow
    End If
  End With
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.