if dir problem
28.11.2018 10:30:48
Pascal
hab da ein kleines Problem und ich komme einfach nicht auf dir Lösung.
Mein Makro soll gucken ob es im Ordner schon eine PDF mit Namen "N******" gibt. Falls nicht diese erstellt werden, falls doch unter 1N****** abgelegt werden, und so weiter.
If Dir(ThisWorkbook.Path & "\N" & Range("U25")) = "" Then
ChDir ThisWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\N" & Range("U25"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
GoTo Ende
Else:
GoTo Sektion2
End If
Sektion2:
If Dir(ThisWorkbook.Path & "\1N" & Range("U25")) = "" Then
ChDir ThisWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\1N" & Range("U25"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
GoTo Ende
Else:
MsgBox "schon X Nutzermitteilungen im ordner abgelegt"
Ende:
End If
End Sub
hoffe jemand kann mich da auf den richtigen weg bringen.
Mit freundlichen Grüßen
Pascal