Hallo
Mit folgender If Bedingung möchte ich prüfen ob die Datei schon vorhanden ist.
Dim Pfad As String
Dim Dateiname As String
Pfad = „C:\Users\whaefliger\Desktop\Makros\Jaheresabschluss\2015“
Dateiname = MonthName(Month(DateAdd(„m“, 1, Date))) + „-Lohn“
If Dir(Pfad & Dateiname & „xlsm“) <> „“ Then
MsgBox „Bitte neues Verzeichnis erstellen und Schaltfläche bearbeiten“
Application.Goto Reference:=„Schaltfläche1_Klicken“
Exit Sub
End If
geht aber nicht. Stattdessen kommt die Meldung vom System, dass es schon ein solche Datei gebe.
Kann mir jemand sagen, was fasch ist?
Danke & Gruss
Walti