Function exp_csv(ia_sheetname As String, ia_exp_file As String, in_spaltenzahl As Integer)

'*****************************************************************
'Autor: Heiko Hommes
'Datum: 16.08.2005
'Funktion: CSV Export mit ; getrennt
'Parameter: ia_sheetname = Tabellenname
'           ia_exp_file = Export datei (c:\temp\hallo.csv)
'           in_spaltenzahl = anzahl der Spalten (a,b,c,d) => 4
'******************************************************************

Dim delim As String
Dim exp_file As String
Dim zeile As String
Dim zeilencount As Long
Dim spaltencount As Integer


Open ia_exp_file For Output As #1
Sheets(ia_sheetname).Activate
va_delim = ";"
va_zeile = ""
vn_zeilencount = 0
vn_spaltencount = 0

Do
    va_zeile = ""
    vn_zeilencount = vn_zeilencount + 1
    For vn_spaltencount = 1 To in_spaltenzahl Step 1
        'If Cells(vn_zeilencount, vn_spaltencount).Value <> ""Then
            If vn_spaltencount = 1 Or va_zeile = "" Then
                va_zeile = Cells(vn_zeilencount, vn_spaltencount).Value
            Else
                va_zeile = va_zeile & va_delim & Cells(vn_zeilencount, vn_spaltencount).Value
                If LTrim(Cells(vn_zeilencount, 1).Value) = "" Then
                MsgBox ("Das Key-Feld eines Datensatzes war nicht gefüllt! Bitte überprüfen Sie die Tourdaten und führen das Export-Makro anschließend erneut aus!"), , "Abbruch"
                Close #1
                Exit Function
                End If
            End If
            
            
    Next vn_spaltencount
    If va_zeile <> "" Then Print #1, va_zeile

Loop Until va_zeile = ""
    Close #1

MsgBox ("Es wurden " & vn_zeilencount - 2 & " Datensätze übergeben!")
      
End Function