' FlexGrid-Inhalt in Datei speichern
Public Sub FlexGrid_Save(ByVal sFile As String)
 
  Dim nRow As Long
  Dim nCol As Long
  Dim nRowSel As Long
  Dim nColSel As Long
  Dim F As Integer
 
  With MSHFlexGrid1(0)
    ' aktuelle Selektion merken
    nRow = .Row
    nCol = .Col
    nRowSel = .RowSel
    nColSel = .ColSel
 
    ' Gesamten Zelleninhalt markieren
    .Row = 1
    .Col = 0
    .RowSel = .Rows - 1
    .ColSel = .Cols - 1
 
    ' Inhalt speichern
    F = FreeFile
    Open sFile For Output As #F
    Print #F, .Clip;
    Close #F
 
    ' ursprüngliche Selektion iederherstellen
    .Row = nRow
    .Col = nCol
    .RowSel = nRowSel
    .ColSel = nColSel
 
  End With
End Sub

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *