|
Hallo,
ich habe ein Tabellenblatt mit mind. 2 Zeilen (Überschrift + eine Zeile Inhalt).
Überschrift ist immer - und der Inhalt wird per Makro aus einem anderen Tabellenblatt übernommen. Dabei werden aber wirklich nur Zeilen übernommen, die auch einen Inhalt haben, Leerzeilen werden übersprungen.
Das Tabellenblatt speicher ich dann als .txt ab:
speichern_unter = ordner & "\" & wks.Name & "_" & dat_name
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets(wks.Name).Copy
ActiveWorkbook.SaveAs Filename:=speichern_unter, FileFormat:=xlText
ActiveWorkbook.Close
Öffne ich danach die Textdatei, dann habe ich Überschrift + 1 Zeile Inhalte + 70 Leerzeilen (bzw. 2 Zeilen Inhalt + 69 Leerzeilen, ...).
Wie schaffe ich es, dass nach dem Speichern die Textdatei wirklich nach dem letzten Eintrag zu Ende ist?
Danke im Voraus für eure Hilfe
|