VBA If-Abfrage für Speicherung
04.01.2005 11:31:06
Thorsten
mit einem Speicherbutton das Formular in den richtigen
Ordner Archiviert
Zu erst soll es prüfen ob der Ordner Cells(3, 12) im
überverzeichniss existiert (damit er nicht ordner in
ordner anlegt) wenn ja soll er die darinliegende Datei
überschreiben (wenn der Name der selbe sein sollte)
ansonsten Ordner neu anlegen und Datei mit dem Namen
Cells(2, 15)
mein Problem ist aber, dass das script nicht das macht
was ich mir ausgedacht habe, vieleicht schaut ihr euch es
mal an
Sub Speichern()
uo = Sheets("Berechnungen").Cells(3, 12).Value
dn = Sheets("Berechnungen").Cells(2, 15).Value & ".xls"
ChDir ActiveWorkbook.Path
If Dir(ActiveWorkbook.Path & "\..\" & uo) <> "" Then
fn = ActiveWorkbook.Path & "\" & dn
Else
MkDir ActiveWorkbook.Path & "\" & uo
fn = ActiveWorkbook.Path & "\" & uo & "\" & dn
End If
ActiveWorkbook.SaveAs FileName:=fn, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
MfG Thorsten