Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1852to1856
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
Inhaltsverzeichnis

VBA-Code Spalte in TXT speichern

VBA-Code Spalte in TXT speichern
02.11.2021 14:15:36
Thomas
Hallo,
ich bin auf der Suche nach einem VBA-Code, welcher mir aus Tabelle2, den Inhalt aus Spalte A1:A1000 untereinander
in eine Textdatei schreibt. Schön wäre noch, wenn eine Dialogbox für die Pfadauswahl angezeigt wird.
Der Dateinamen DatenExport.txt darf gerne als Vorschlag schon vorhanden sein.
Vielen Dank

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Code Spalte in TXT speichern
02.11.2021 14:46:01
Rudi
Hallo,
eine Möglichkeit:

Sub aaaa()
Dim x, ff
x = Join(Application.Transpose(Sheets("Tabelle2").Range("A1:A1000")), vbCr)
With Application.FileDialog(msoFileDialogSaveAs)
For ff = 1 To .Filters.Count
If .Filters(ff).Extensions Like "*.txt" Then
.FilterIndex = ff: Exit For
End If
Next ff
If .Show Then
Open .SelectedItems(1) For Output As #1
Print #1, x
Close 1
End If
End With
End Sub
Gruß
Rudi
AW: VBA-Code Spalte in TXT speichern
08.11.2021 22:34:10
Icefish232
Ich war hier so frei mal zu kopieren, danke!
Wie kann ich nach jeder Zeile eine Leerzeile im TXT einfügen, sodass es übersichtlicher wird? Also nach dem Inhalt von A1 in meiner TXT eine Leerzeile, dann A2, dann Leerzeile...
A1
Leerzeile
A2
Leerzeile
A3
Leerzeile
A4
etc
Anzeige
AW: VBA-Code Spalte in TXT speichern
02.11.2021 20:59:53
Thomas
Hallo,
vielen Dank, funktioniert.
Grüße Thomas

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige