CSV-Export - 1. Leerzeile vermeiden
07.01.2008 13:50:33
Gregor
Untenstehender Export klappt wunderbar (Bereich im aktuellen Sheet in eine neue CSV-Datei speichern)
Leider wird eine Leerzeile oben angeführt (1. Zeile leer, 2. Zeile 1. Wert aus Excelbereich).
Weiss jemand wie ich das vermeiden kann oder die 1. Zeile in der CSV-Datei löschen kann?
Merci!!
Gregor
Sub aaaaaaaaaa_22222222222CSV()
dat_neu = "C:\test1.csv"
Open dat_neu For Output As #1
alt_zeile = 0
schreibe = ""
For Each zelle In Range("a75:a77").Cells
akt_zeile = zelle.Row
If akt_zeile = alt_zeile Then
schreibe = schreibe & zelle
Else
Print #1, schreibe
schreibe = zelle
alt_zeile = akt_zeile
End If
Next zelle
Print #1, schreibe
Close #1
End Sub