|
Hallo,
ich suche derzeit nach einer Möglichkeit, mit der ich abfragen kann, ob sich eine Datei mit dem Namen in dem Ordner befindet und falls ja soll siie es unter
einem anderen Namen abspeichern. Mein Problem dabei ist momentan, das ich mir eine extra Schaltfläche zum speichern der Datei angelegt habe
und ich zum Zeitpunkt der Speicherung nicht den Namen als festes abfragen kann , da sich der durch mehrere Zellen zusammensetzt.
Vielleicht verständlicher, wenn ich den Code dazu poste:
Verzeichnisname = Format(Date, "yyyy")
Verzeichnisname2 = Format(Time, "HH:MM")
Pfad = "G:\Excel\" & Verzeichnisname
Pfad2 = Pfad & "\" & Range("J1")
Dim sTitle As String
sTitle = "Bedarfsanzeige nicht vollständig"
If IsEmpty(Sheets("Bedarfsanzeige").Range("Anforderer")) Then
MsgBox prompt:="" & Chr(13) & "> Anforderer Name fehlt", Title:=sTitle
GoTo LastLine
End If
If IsEmpty(Sheets("Bedarfsanzeige").Range("F6")) Then
MsgBox prompt:="" & Chr(13) & "> Verwendungszweck nicht vorhanden", Title:=sTitle
GoTo LastLine
End If
If IsEmpty(Sheets("Bedarfsanzeige").Range("H7")) Then
Worksheets("Bedarfsanzeige").Range("N1").Value = 1
If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad
If Dir(Pfad2, vbDirectory) = "" Then MkDir Pfad2
ThisWorkbook.SaveAs Pfad2 & "\" & Range("J1") & "_" & Range("J3") & "_" & Range("J2") & "_" & Verzeichnisname2 & ".xlsm"
Else
Worksheets("Bedarfsanzeige").Range("N1").Value = 1
If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad
If Dir(Pfad2, vbDirectory) = "" Then MkDir Pfad2
ThisWorkbook.SaveAs Pfad2 & "\" & Range("J1") & "_" & Range("J3") & "_" & Range("J2") & "_" & Range("H7") & "_" & Verzeichnisname2 & ".xlsm"
End If
Ich möchte dem ganzen nun eben noch eine Abfrage hinzufügen, falls ich mal am selben Tag eine Datei mit dem selben Namen erstellen würde.
Damit diese dann z.b. mit dem Zusatz 1 abgespeichert wird und mir nicht die andere überschreibt.
|