Wie kann ich per Makro die Spalten A-H als Textdatei speichern. Die Datei hat einen genauen Namen und Pfad und soll jedesmal überschrieben werden.
Wie geht das?
Grüße,
Daniel
Sub SpaltenSpeichern()
Const fn = "D:\SpalteA-H.txt" 'Dateiname
Dim sh1 As Worksheet
Dim sh2 As Worksheet
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Set sh1 = ActiveSheet
Workbooks.Add
Set sh2 = ActiveWorkbook.Sheets(1)
sh1.Range("A:H").Copy sh2.Range("A:H")
With ActiveWorkbook
.SaveAs Filename:=fn, FileFormat:=xlTextWindows
.Close False
End With
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Sub SpaltenSpeichern()
Const fn = "D:\SpalteA-H.txt" 'Dateiname
Dim sh As Worksheet
Dim Bereich As Range
Dim Zeile As Range
Dim Zelle As Range
Dim s As String
Dim ff As Integer
Set sh = Sheets("Aufträge1")
Set Bereich = Intersect(sh.UsedRange, sh.Range("A:H"))
ff = FreeFile
Open fn For Output As ff
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & vbTab
Next
Print #ff, Left(s, Len(s) - 1) 'letzten [TAB] abschneiden
s = ""
Next
Close ff
End Sub