Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

if dir problem

if dir problem
05.12.2018 17:09:05
Pascal
guten Abend
ich habe im folgenden teil eines makros das Problem dass er die Datei 1N*** im Ordner nicht erkennt.
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: unverständlicn
05.12.2018 17:16:26
Fennek
Hallo,
soll das so heißen?

f = dir(thisworkbook.path & "\IN*.*")
do while len(f)
'mach was
f = dir
loop
mfg
AW: unverständlicn
05.12.2018 17:34:41
Pascal
If Dir(ThisWorkbook.Path & "\1N" & Range("U25")) = "" Then
soll nach der Datei 1N*** im übergeordneten Ordner suchen.
falls noch nicht vorhanden als pdf speichern
falls vorhanden sucht er nach 2N*** und so weiter
AW: unverständlicn
05.12.2018 17:47:15
Pascal
Hier hab ich das selbe Problem..
zudem fängt er nicht bei 1 an sondern speichert als 0N***
Sub test4608()
Dim Datei As String, Dat As String
Dim Zähler As Long
Datei = ThisWorkbook.Path & "\###N" & Range("U25")
Do
Dat = Replace(Datei, "###", IIf(Zähler = 0, "", Zähler))
If Dir(Dat) = "" Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dat, Quality:=xlQualityStandard,  _
_
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Exit Do
End If
Zähler = Zähler + 1
Loop
End Sub

Anzeige
AW: so?
05.12.2018 18:05:44
Fennek
Hallo,

sub T_1()
Pfad = thisworkbook.path & "\"
for Z = 1 to 10 'maximum möglich
if dir(Pfad & Z & "N" & Range("U25")) = "" then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dat, Quality:=xlQualityStandard,   _
_
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
exit for
end if
next Z
end sub

AW: so?
06.12.2018 06:52:40
Pascal
Moin Fennek,
leider klappt auch das nicht..
es wird kein Duplikat erstellt sondern wieder nur das bestehende PDF überschrieben.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige