Speicherpfad variieren
23.11.2004 11:15:02
Andrea
Ich habe ein mehr oder weniger großes Problem:
Mein Code funktioniert eigentlich ganz gut.
Sub Speichern_BeiKlick()
Dim Dateiname As String
Dateiname = Range("E9").Value
Dateiname = Format(CDate(Dateiname), "yymmdd") & ".xls"
If Range("A1") = 1 Then
ActiveWorkbook.SaveAs Filename:="G:\DiesesVerzeichnisExistiertNicht\" & Dateiname
End If
If Range("A1") = 2 Then
ActiveWorkbook.SaveAs Filename:="G:\DiesesVerzeichnisAuchNicht\" & Dateiname
End If
End Sub
Wenn aber an einem Tag (E9) zweimal der gleiche Speicherpfad benötigt wird, soll an den Dateinamen automatisch ein _a etc. (oder auch _1 etc...) angehängt werden.
Ich habe keine Idee.
Hat jemand auf dieser großen Welt einen Tip für mich?
MfG Andrea