Dim F As Integer
Dim i As Long
Dim u As Long
 
' Datei öffnen
F = FreeFile
Open "Datei.txt" For Output As #F
 
' alle Datensätze exportieren (Komma separiert)
With Grid1
  For i = 1 To .Rows
    For u = 1 To .Cols
      Print #F, .Text(i, u) & IIf(u < .Cols, ";", vbCrLf)
    Next u
  Next i
End With
 
' Datei schließen
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de