With Application.FileSearch

Question

Hallo!

Ich komme einfach nicht um diesen Befehl herum!
Kann mir jemand doch noch mein Makro anpassen?
Wär echt super! Meine Kenntnisse sind hierfür einfach nicht ausreichend.

Gruss u Dank im Voraus!

Ines

Sub CommandButton1_Click()
ActiveSheet.Unprotect
ActiveWorkbook.BreakLink Name:= _
"I:\IWiN\Datenexport\Finanzen\1. IWiN_Formular u Berechnung 2010-2013.xls", Type:= _
xlExcelLinks

Cells.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Dim pfad, name1, name2 As String

pfad = "I:\IWiN\Datenexport\Finanzen" 'hier mein Pfad eingeben"
name1 = Cells(26, 3) 'hier wird der inhalt aus A1 gelesen (erste 1 = zeile; zweite 1 = spalte)
name2 = Cells(10, 3) 'hier wird der inhalt aus B1 gelesen (1 = zeile; 2 = spalte)

Dim i As Long
With Application.FileSearch
.LookIn = pfad
If .Execute > 0 Then i = .FoundFiles.Count
i = i + 1
ActiveWorkbook.SaveAs Filename:=pfad & "\" & name1 & "_" & name2 & "-" & Format(Date, "YYYY-MM-DD") & ".xls"

End With

Workbooks.Open Filename:= _
"I:\IWiN\Datenexport\Finanzen\Zahlungsanweisung verknüpft.xls", _
UpdateLinks:=3

End Sub

Answer 1

Hallo Ines,

erinnere ich mich falsch, oder benutzt Du nicht Version >2003? Das sollte man erwähnen.

Gruß Hajo

Answer 2

Hallo Hajo!

Sorry, bin schon so mit 2010 werwachsen, dass ich diese Info vergessen habe!
Es ist für mich auch absolut nicht nachvollziehbar, dass dieser Befehl einfach gestrichen wurde.

Gruss

Ines

Answer 3

Hallo Ines,

vielleicht solltest Du erklären wofür Du Application.FileSearch benutzt. Die Variable i wird im weiteren Code nicht benutzt. Ich vermute viele haben auch 2010 und können Deinen Code nicht testen, wie ich auch.

Gruß Hajo

Answer 4

Hallo Hajo!
Du hast echt das Talent die richtigen Fragen zu stellen. Ich habe den Befehlsbereich einfach rausgeschmissen. Und was sagt man dazu, es funktioniert alles so wie es soll.

Danke für die Inspiration!

Gruss und schöne Pfingsten...
Ines