Dim sFile As String
Dim F As Integer
Dim i As Long
 
F = FreeFile
Open "d:\export.csv" For Output As #F
 
With sevList1
  ' Header
  For i = 1 To .ColumnCount
    Print #F, .ColText(i); ";"
  Next i
  Print #F, ""
 
  ' Daten
  For i = 1 To .ListCount
    Print #F, Replace(.List(i), vbTab, ";")
  Next i
End With
 
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de