Hallo Chris,
teste mal:
Option Explicit
Sub Textdatei_erstellen()
'Variablen definieren
Dim loLetzte As Long, i As Long
Dim ExportPfad As String, ExportFile As String
'Exportpfad mit Backslash am Schluss definieren !!
ExportPfad = "C:\Temp\"
'Schliessen einer evetnuell noch geöffneten Datei
Close #1
'Spalte A Kommagetrennt in Zelle (Zielzelle ggf. anpassen)
With Worksheets("Tabelle1") 'Tabellenblatt anpassen
'letzte belegte Zelle in Spalte A ermitteln
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
'Schleife über die Spalte A von A1 bis A letzte belegte Zelle
For i = 1 To loLetzte
'Werte aus Spalte A kommagetrennt in temporäre Zelle (CV1 = cells(1, 100) schreiben
.Cells(1, 100) = .Cells(1, 100) & "," & .Cells(i, 1)
Next i
'führendes Komma aus temporärer Zelle entfernen
.Cells(1, 100).Value = Mid(.Cells(1, 100), 2)
End With
'1. Öffnen der Datei
'Den Namen und Pfad bitte anpassen
ExportFile = ExportPfad & "Exportdatei.txt" 'Name der Datei anpassen
Open ExportFile For Output As #1
'temporäre Zelle in Textdatei exportieren
Print #1, Worksheets("Tabelle1").Cells(1, 100)
'Schliessen der Datei weil Dateiende erreicht wurde
Close #1
'Temporäre Zelle leeren
Worksheets("Tabelle1").Cells(1, 100).ClearContents
'ausgabe einer Meldung
MsgBox "Textdatei wurde in " & ExportPfad & " erstellt"
End Sub
Die Daten aus Spalte A werden zunächst kommagetrennt in eine temporäre Zelle geschrieben, diese Zelle wird dann in den Pfad C:\Temp\ exportiert. Name der Datei ist Exportdatei.
|