AW: Autofilter
26.04.2010 01:08:22
fcs
Hallo Horst,
kopiere die als Text zu speichernden Daten in einem Tabellenblatt einer neuen Arbeitsmappe. Diese kann dann problemlos als Txtdatei gespeichert werden.
Schaut dann etwa wie folgt aus.
Statt den Dateinamen im Dialog auszuwählen, kannst du ihn natürlich auch fest vorgeben.
z.B.:vFilename = "C:\Lokale Daten\Test\Treffer.txt"
Gruß
Franz
Sub test()
Dim wbText As Workbook, wbAktiv As Workbook, vFilename
Set wbAktiv = ActiveWorkbook
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1"
Range("A1:AU6810").Select
Selection.Copy
Sheets("treffer").Select
Set wbText = Workbooks.Add(Template:=xlWBATWorksheet)
ActiveSheet.Paste
Application.CutCopyMode = False
vFilename = Application.GetSaveAsFilename(InitialFileName:="Treffer", _
Filefilter:="Text (*.txt),*.txt", _
Title:="Bitte Dateiname für Treffer-Txt-Datei eingeben/wählen")
If vFilename False Then
wbText.SaveAs Filename:=vFilename, FileFormat:=42 'xlUnicodetext
End If
wbText.Close savechanges:=False
wbAktiv.Activate
Sheets("treffer").Select
Selection.AutoFilter
End Sub