|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Neuste Datei suchen |
26.02.2019 15:02:06 |
_Josi |
|
|
|
26.02.2019 15:06:02 |
Gast45760 |
|
|
|
26.02.2019 15:29:56 |
Gast99976 |
|
|
|
26.02.2019 15:58:30 |
Gast99385 |
|
|
|
26.02.2019 17:15:04 |
Gast83217 |
|
|
|
26.02.2019 23:58:31 |
Gast99385 |
|
|
|
27.02.2019 08:14:48 |
Gast31225 |
|
|
Von:
_Josi |
Datum:
26.02.2019 15:02:06 |
Views:
1110 |
Rating:
|
Antwort:
|
Thema:
Neuste Datei suchen |
|
Hallo liebe community,
ich habe folgendes Makro, welches die aktuellste Datei in einem variablen Ordner öffnen soll.
Nun hab ich das Problem, dass ich eine Fehlermeldung bekomme.
Diese Fehlermeldung Besagt dass ich Für die Ordner Jahr und Monat konstante Werte verwenden muss. (in Zelle 2,2 steht dass Datum)
Sub Datei suchen()
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:\xxx\zzz\yyy\aaa\bbb\ccc\" & 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
Wie kann ich das Makro anpassen, um variable Ordner zu verwenden?
Vielen Dank und freundliche Grüße
_Josi
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Neuste Datei suchen |
26.02.2019 15:02:06 |
_Josi |
|
|
|
26.02.2019 15:06:02 |
Gast45760 |
|
|
|
26.02.2019 15:29:56 |
Gast99976 |
|
|
|
26.02.2019 15:58:30 |
Gast99385 |
|
|
|
26.02.2019 17:15:04 |
Gast83217 |
|
|
|
26.02.2019 23:58:31 |
Gast99385 |
|
|
|
27.02.2019 08:14:48 |
Gast31225 |
|
|