Office: (Office 2010) CVS Datei mit VBA erstellen

Guten Morgen,

Excel bringt mich mal wieder zum verzweifeln. Ich hoffe ihr könnt Lichts ins Dunkle bringen ;)

Mein Ziel ist es eine CVS Datei zu erstellen die in Lotus Notes eingelesen werden kann. Diese muss so aufgebaut sein:

Code:

"",Vorname,"",Nachname,"",Abteilung,"","","","","","","","","","","","","","","","","","","","","","","","","Tel.Nr","","","","","","","","","","","","","","","","","","","",""

Wenn ich das jetzt so mir eine Datei mit den Anführungszeichen in Excel erstellen lassen sieht alles super aus, aber sobald ich die in die CVS Datei exportiere sieht das anders aus.

Also in Excel sieht die obige CVS Datei so aus:

,Vorname,"",Nachname,"",Abteilung,"","","","","","","","","","","","","","","","","","","","","","","","","Telnr","","","","","","","","","","","","","","","","","","","",""

Jetzt bekomme ich es einfach nicht hin die obige CVS Datei nachzubauen in Excel, er baut mir ständig Anführungszeichen ran. Es klappt nicht, das am Ende und Anfang in der CVS Datei zwei Anführungszeichen stehen.

So habe ich es schon probiert:

Code:

'Workbooks("Kopfdatei.xlsx").Sheets(1).Cells(kopfZeile, 1).Value = "" & """," & vName & ",""," & nName & ",""," & Abteilung & ","","","","","","","","","","","","","","","","","","","","","","","",""," & telNr & ","","","","","","","","","","","","","","","","","","","","""
        'Workbooks("Kopfdatei.xlsx").Sheets(1).Cells(kopfZeile, 1).Value = "" & "" & """," & vName & ",""," & nName & ",""," & Abteilung & ","","","","","","","","","","","","","","","","","","","","","","","",""," & telNr & ","","","","","","","","","","","","","","","","","","","","""
        'Workbooks("Kopfdatei.xlsx").Sheets(1).Cells(kopfZeile, 1).Value = Chr(34) & "," & vName & ",""," & nName & ",""," & Abteilung & ","","","","","","","","","","","","","","","","","","","","","","","",""," & telNr & ","","","","","","","","","","","","","","","","","","","","""
        'Workbooks("Kopfdatei.xlsx").Sheets(1).Cells(kopfZeile, 1).Value = "," & vName & ",""," & nName & ",""," & Abteilung & ","","","","","","","","","","","","","","","","","","","","","","","",""," & telNr & ","","","","","","","","","","","","","","","","","","","","
        Workbooks("Kopfdatei.xlsx").Sheets(1).Cells(kopfZeile, 1).Value = vName & ",""," & nName & ",""," & Abteilung & ","","","","","","","","","","","","","","","","","","","","","","","",""," & telNr & ","","","","","","","","","","","","","","","","","","","""

Entweder steht dann nur ein Anführungszeichen vorne und hinten, gar keins oder gleich drei. Zwei scheinen irgendwie nicht zu funktionieren.

Ich verzweifel daran, habe schon so viel probiert. Wo liegt mein Fehler?

Danke!

 

was mir noch einfällt: Öffne ich die richtige CVS Datei in Excel und speichere sie dann in Excel wieder als CVS Datei, dann steht auch nur ein Anführungszeichen dran. Es liegt also wohl Speichern der Datei.