Hallo liebe Forummitglieder,
ich probiere jetzt schon länger vergeblich eine Schleife zu programmieren. Es kommt immer noch zu einem Fehler in meiner Logik. Könnt Ihr mir bitte weiterhelfen?
Mein Ziel ist es die MsgBox (vereinfacht) in den beiden Fällen in dem die Schleife wahr ist, anzuzeigen, ansonsten nichts zu tun.
Viele Grüße
Marlene
With Workbooks("A.xlsm").Worksheets("S")
If .Range("B5").Value = "automatisch" And .Range("O18").Value = "0" And strDateiS = "" Then
MsgBox "Funktioniert"
End If
If .Range("B5").Value = "automatisch" And strDateiS <> "" And FileDateTime(strPfad & strDateiS) < Now - 1
MsgBox "Funktioniert auch"
End If
End With
|