Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CSV-Export - 1. Leerzeile vermeiden

CSV-Export - 1. Leerzeile vermeiden
07.01.2008 13:50:33
Gregor
Hallo Profis
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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV-Export - 1. Leerzeile vermeiden
07.01.2008 14:16:15
Rudi
Hallo,
du muss am Anfang

alt_zeile=75


schreiben.
Der Code ist nicht sinnvoll. Du hast kein Trennzeichen.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: CSV-Export - 1. Leerzeile vermeiden
07.01.2008 14:20:29
Gregor
Hallo Rudi
Merci für deine Hilfe! Klappt wunderbar!
Hinweis: das Trennzeichen habe ich bereits in der Zelle (z.B: Zelle a75:'Hans;Muster;Bahnhofstrasse;15 etc.)
Einen schönen Tag noch!
Gregor
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige