Guten Abend zusammen,

ich möchte gern ein Makro ausführen (hier Vereinfacht als MsgBox) unter mehreren Voraussetzungen. Bei der letzten Voraussetzung habe ich ein Problem, ich weiß nicht, wie ich es hinbekomme, dass das Dateialter als Bedingung abgefragt wird, aber nur, falls (als Nebenbedingung) auch eine Datei vorhanden ist. Habt Ihr eine Idee, wie ich das am besten verknüpfe.

Danke

Tabea

'strDateiSPX <> ""

mein Makro

Dim strPfad As String
Dim strDateiSPX As String
strPfad = ThisWorkbook.path & "\" & "Live\"
strDateiSPX = Dir(strPfad & "SPX" & "*.xlsb") 

   If Workbooks("AutoMonitoring.xlsm").Worksheets("Steuerung").Range("B5").Value = "automatisch" And _
       Workbooks("AutoMonitoring.xlsm").Worksheets("Steuerung").Range("I18") < Workbooks("AutoMonitoring.xlsm").Worksheets("Steuerung").Range("J18") And _
       Workbooks("AutoMonitoring.xlsm").Worksheets("Steuerung").Range("O18").Value = "0" And FileDateTime(strPfad & strDateiSPX) < Now - 0 Then
    End If