aus dem jeweils aktiven Tabellenblatt würde ich gerne die Spalten A und I in eine Textdatei exportieren. Dabei sollte aber zunächst die Spalte I und dann die Spalte A in der Reihenfolge stehen. Eine bereits bestehende Textdatei sollte ohne Nachfrage überschrieben werden. Ich bekomme den untenstehenden Code nicht darauf angepaßt und wäre für Hilfestellung aus dem Forum sehr dankbar.
Gruß - Wolfgang
Sub writtotest()
strUser = Environ("Username")
strUser = Trim$(Replace(strUser, ".GST", ""))
Dim actcell As Range
Open "C:\Dokumente und Einstellungen\" & strUser & "\Desktop\test.txt" For Append Access Write _
Lock Write As #1
For Each actcell In Range("C1:C1000")
If Not (IsEmpty(actcell.Value) Or actcell.Value = "") Then
Print #1, actcell.Value; "," & actcell.Offset(0, 6).Value & "," & actcell.Offset(0, 3).Value
End If
Next actcell
Close #1
End Sub