Private Sub flx_Click()
  With flx1
     If flx.MouseCol = 0 Then
        flx.Col = 1 'Spalte angeben
        flx.Row = flx.MouseRow  'Zeile angeben
        .Rows = 20  'Zeilenanzahl angeben
        .Move flx.Left + flx.CellLeft, flx.Top + flx.CellTop, _
                   flx.CellWidth, flx.CellHeight  '2. Grid verschieben
        .ColWidth(0) = 1500: .ColWidth(1) = .Width - .ColWidth(0)  _
          'Zellenbreiten
        .TopRow = .FixedRows  '1. Zeile setzen
        .Visible = True  'sichtbar machen
     End If
  End With
End Sub

Gru? aus dem Norden
manyki