End IF Problem
geri
Hallo
ich möchte Code abfangen wenn Workbook open nicht augeführt werden kann.
wenn File nicht vorhanden MsgBox und dann Makro beenden.
pfad = Sheets("Deckblatt").Range("I37").Value
file = Sheets("Deckblatt").Range("J39").Value
strDatei = pfad & file
If strDatei "" Then
Workbooks.Open Filename:=strDatei
End If
MsgBox "nix da, denke falsch geschrieben !!!"
Exit Sub
Else
Sheets("Stunden").Activate
With ActiveSheet.PageSetup
.....
Gruss aus CH und DANKE