Fest definierter Inhalt i.e. Textdatei exportieren

Moin Moin!
Seit Tagen suche ich verzweifelt in meiner Excel VBA-Hilfe nach folgender Möglichkeit (...finde aber nix!):
Ein fest definierter Inhalt (Range A1:A40) eines Arbeitsblattes (ich nenne es "Code") soll in eine Textdatei exportiert werden.
Aktiviert werden soll die Aktion durch ein Klick auf ein CommandButton in einem anderen Arbeitsblatt.
Optimal wäre, wenn sich eine Dialogbox öffnet, in der ein Speicherpfad von mir vorgegeben ist, aber bei Bedarf geändert werden kann.
Für ein leicht verständliches VBA-Skript wäre ich sehr dankbar! ...oder wo finde ich die entscheidende Hilfe in der Hilfe...
---------------------------------
Bei meinen Recherchen bin ich auf zwar auf folgende Möglichkeit gestoßen...
ActiveSheet.SaveAs Filename:="C:\D....\test", FileFormat:=xlTextMSDOS
...welches aber beim späteren schließen der Excel-Datei Probleme macht: Das Programm will die ursprüngliche xls-Datei nun als txt-Datei abspeichern?!
Viele Grüße aus dem Norden
Lenhard Klimek

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lenhard,
probier das mal aus:


Option Explicit
Sub TxtAusCodeA1_A40()
Dim strD As String, strN, nr As Integer, zz As Long
strD = CurDir()
strN = Application.GetSaveAsFilename(InitialFileName:="C:\temp\xxx.txt", _
FileFilter:="Textdateien (*.txt), *.txt", Title:="Code!A1:A40 in Textdatei ausgeben")
If VarType(strN) = vbBoolean Then Exit Sub
nr = FreeFile(1)
Open strN For Output As #nr
For zz = 1 To 40
Print #nr, Cells(zz, 1).Text
Next zz
Close nr
ChDrive strD
ChDir strD
End Sub

Der Code gehört in ein normales Modul, den InitialFileName musst du anpassen.
Dann erstellst du eine Schaltfläche (aus der Formular-Symbolleiste) und weist ihr das Makro zu.
Es wird nicht geprüft, ob die Textdatei schon existiert. (Wenn ja, wird sie überschrieben.)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Option Explicit Sub TxtAusCodeA1_A40() Dim strD As String, strN, nr As Integer, zz As Long strD = CurDir() strN = Application.GetSaveAsFilename(InitialFileName:="F:\exc\w-w-w\tmp\xxx.txt", _ FileFilter:="Textdateien (*.txt), *.txt", Title:="Code!A1:A40 in Textdatei ausgeben") If VarType(strN) = vbBoolean Then Exit Sub nr = FreeFile(1) Open strN For Output As #nr With Sheets("Code") For zz = 1 To 40 Print #nr, .Cells(zz, 1).Text Next zz End With Close nr ChDrive strD ChDir strD End Sub

Beliebteste Forumthreads (12 Monate)

Fest definierter Inhalt i.e. Textdatei exportieren

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

145 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fest definierter Inhalt i.e. Textdatei exportieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

145 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread