Thema Datum  Von Nutzer Rating
Antwort
26.02.2019 15:02:06 _Josi
NotSolved
Blau Neuste Datei suchen
 26.02.2019 15:06:02 Gast45760
NotSolved
26.02.2019 15:29:56 Gast99976
NotSolved
26.02.2019 15:58:30 Gast99385
NotSolved
26.02.2019 17:15:04 Gast83217
NotSolved
26.02.2019 23:58:31 Gast99385
NotSolved
27.02.2019 08:14:48 Gast31225
NotSolved

Ansicht des Beitrags:
Von:
Gast45760		 Datum:
26.02.2019 15:06:02		 Views:
558		 Rating:
     
Antwort:
  Ja
Thema:
Neuste Datei suchen
Kann leider den Code-Button nicht finden Sub Bonderei() Ordner = Sheets(2).Cells(2, 2) Ordner = Format(Ordner, "mm_MMMM") Jahr = Sheets(2).Cells(2, 2).Value Jahr = Format(Jahr, "yyyy") Const strVerz As String = "P:\MA-5\MA-53\MA-531\36_RS-Finish\01_Vorarbeiter\02_StkDoku\" & Jahr & "\" & Ordner & "\" Const strExt As String = ".xls" Dim strDatei As String, strScratch As String strScratch = Dir(strVerz & "*" & strExt) strDatei = strScratch Do While strScratch <> "" If FileDateTime(strVerz & strDatei) < FileDateTime(strVerz & strScratch) Then strDatei = strScratch strScratch = Dir() Loop If strDatei <> "" Then Workbooks.Open strVerz & strDatei Else MsgBox "keine Datei gefunden" End If End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.02.2019 15:02:06 _Josi
NotSolved
Blau Neuste Datei suchen
 26.02.2019 15:06:02 Gast45760
NotSolved
26.02.2019 15:29:56 Gast99976
NotSolved
26.02.2019 15:58:30 Gast99385
NotSolved
26.02.2019 17:15:04 Gast83217
NotSolved
26.02.2019 23:58:31 Gast99385
NotSolved
27.02.2019 08:14:48 Gast31225
NotSolved