Excel als Textdatei ausgeben, aber ohne Leerzeilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatenInTXT() Dim ff As Byte Dim rng As Range ff = FreeFile Open "C:\Test.txt" For Output As #ff 'Dateiname und Pfad anpassen For Each rng In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) If rng <> "" Then Print #ff, rng End If Next 'rng Close #ff End Sub

Sub DatenInTXT() Dim ff As Byte Dim rng As Range Dim DatName As String DatName = Application.GetOpenFilename If DatName = "Falsch" Then Exit Sub ff = FreeFile Open "C:\Test.txt" For Output As #ff 'Dateiname und Pfad anpassen For Each rng In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) If rng <> "" Then Print #ff, rng End If Next 'rng Close #ff End Sub

Sub DatenInTXT() Dim ff As Byte Dim rng As Range Dim DatName As String DatName = Application.GetOpenFilename If DatName = "Falsch" Then Exit Sub ff = FreeFile Open DatName For Output As #ff 'Dateiname und Pfad anpassen For Each rng In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) If rng <> "" Then Print #ff, rng End If Next 'rng Close #ff End Sub

Sub DatenInTXT() Dim ff As Byte Dim rng As Range Dim DatName As String DatName = Application.GetOpenFilename If DatName = "Falsch" Then Exit Sub ff = FreeFile Open DatName For Output As #ff 'Dateiname und Pfad anpassen Sheets("Textfile").Select For Each rng In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) If rng <> "" Then Print #ff, rng End If Next 'rng Close #ff Sheets("Input").Select End Sub

Hallo Wolfgang,
zwei mögliche Fehlerquellen:
1. Wenn du die bisherige Version des Makros in das Modul des Tabellenblattes "Input" gestellt hast, hat sich das Makro nicht auf das aktive Tabellenblatt, also "Textfile" bezogen, sondern auf "Input". Folgende Version umgeht dieses Problem. Hinter "GetOpenFileName" habe ich außerdem noch einen Dateifilter ergänzt, der dafür sorgt, dass im Auswahlfenster nur Textdateien (Endung .txt) angezeigt werden.
2. Im Dateiauswahlfenster musst du den gewünschten Dateinamen händisch in das Feld "Dateiname:" eintragen. Wenn es die Datei bereits gibt, kannst du diese alternativ per Doppelklick auswählen. Es genügt allerdings nicht, im Auswahlfenster nur bis zu dem gewünschten Ordner zu browsen und dann, wenn in diesem Ordner nur eine Datei steht, nur auf "Öffnen" zu klicken. Dadurch würde keine Datei ausgewählt werden und das Makro würde abbrechen.

Sub DatenInTXT()
Dim ff As Byte
Dim rng As Range
Dim DatName As String
DatName = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If DatName = "Falsch" Then Exit Sub
ff = FreeFile
Open DatName For Output As #ff
With Sheets("Textfile")
For Each rng In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
If rng <> "" Then
Print #ff, rng
End If
Next 'rng
End With
Close #ff
End Sub

Gruß Ingolf

Sub DatenInTXT() Dim ff As Byte Dim rng As Range Dim DatName As String DatName = Application.GetSaveAsFilename("C:\heinz", "Text Files (*.txt), *.txt") If DatName = "Falsch" Then Exit Sub ff = FreeFile Open DatName For Output As #ff With Sheets("Textfile") For Each rng In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row) If rng <> "" Then Print #ff, rng End If Next 'rng End With Close #ff End Sub

Beliebteste Forumthreads (12 Monate)

Excel als Textdatei ausgeben, aber ohne Leerzeilen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel als Textdatei ausgeben, aber ohne Leerzeilen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread