das Makro (aus dem Forum):
Sub A_speichern()
Open "C:\Dokumente und Einstellungen\Administrator\Desktop\papa\AD\test.txt" For Output As #1
With Sheets(1)
Print #1, _
Join(WorksheetFunction.Transpose(.Range(.Cells(1, 1), _
.Cells(Rows.Count, 1).End(xlUp))), vbCrLf)
End With
Close #1
End Sub
speichert leider nur Spalte A der Tabelle1 ,sollte aber mindestens bis Spalte E speichern ohne Semikolon oder so.
Ich würde gern, Tabelle1, Tabelle2, Tabelle3 und dann Tabelle4 auch als Textdatei speichern.
Die Tabellen sollen also untereinander "in einer Textdatei" gespeichert werden.
Ist dies möglich?
Dank an alle und MfG