<code>Private Sub Grid_Markieren(Wert1 As String, Wert2 As String)
  Dim I As Long
  Dim aCol As Long
  Dim eCol As Long
 
  With FlexGrid1
    <font color=green>' In der Kopfzeile des Grids suchen (also Zeile 1 bzw. 
    ' Row 0)</font>
    .Row = 0
 
    <font color=green>' alle Zellen der gesetzten Zeile durchsuchen</font>
    For I = 0 To .Cols - 1
      .Col = I
      If .Text = Wert1 Then aCol = I
      If .Text = Wert2 Then eCol = I
    Next I
 
    <font color=green>' Zellen darunter markieren</font>
    .Row = 1: .RowSel = 1
    .FillStyle = 1
    If eCol < aCol Then
      .Col = eCol: .ColSel = aCol
    Else
      .Col = aCol: .ColSel = eCol
    End If
    .CellBackColor = vbRed
    .FillStyle = 0
  End With
End Sub</code>