Speicherort

Hallo Excel-Freaks,
wie kann ich bei folgendem Makro den Speicherort fix angeben (zB. unter Desktop) statt der Auswahl via
"Application.GetSaveAsFilename( ...)"?
Besten Dank vorab!

Sub Filtering()
Dim wbText As Workbook, wbAktiv As Workbook, vFilename
Set wbAktiv = ActiveWorkbook
Cells.Select
Selection.Autofilter
Selection.Autofilter Field:=131, Criteria1:="1"
Range("A1:EC65536").Select
Selection.Copy
Sheets("results").Select
Set wbText = Workbooks.Add(Template:=xlWBATWorksheet)
ActiveSheet.Paste
ActiveSheet.Range("DZ:EC").Delete
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("results").Select
Selection.Autofilter
Application.Quit
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Filtering() Dim wbText As Workbook, wbAktiv As Workbook, vFilename Set wbAktiv = ActiveWorkbook Cells.Select Selection.Autofilter Selection.Autofilter Field:=132, Criteria1:="1" Range("A1:EC65536").Select Selection.Copy Sheets("results").Select Set wbText = Workbooks.Add(Template:=xlWBATWorksheet) ActiveSheet.Paste ActiveSheet.Range("DZ:EC").Delete Application.CutCopyMode = False vFilename = "C:\Dokumente und Einstellungen\ludle\Desktop\test.txt" If vFilename False Then wbText.SaveAs Filename:=vFilename, FileFormat:=42 'xlUnicodetext End If wbText.Close savechanges:=False wbAktiv.Activate Sheets("results").Select Selection.Autofilter Application.Quit End Sub

Sub Filtering() Dim wbText As Workbook, wbAktiv As Workbook, vFilename Set wbAktiv = ActiveWorkbook Cells.AutoFilter Field:=132, Criteria1:="1" Range("A1:DX65536").Copy Sheets("results").Select 'wozu? Set wbText = Workbooks.Add(Template:=xlWBATWorksheet) ActiveSheet.Paste Application.CutCopyMode = False vFilename = "C:\Dokumente und Einstellungen\ludle\Desktop\test.txt" Application.DisplayAlerts = False wbText.SaveAs Filename:=vFilename, FileFormat:=42 'xlUnicodetext Application.DisplayAlerts = True wbText.Close savechanges:=False wbAktiv.Activate 'wozu? Sheets("results").Select 'wozu? Selection.AutoFilter 'wozu? Application.Quit End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread