speichern unter durch VBA nach Zellbezug
01.09.2003 17:26:34
udo
ich habe folgendes Problemchen in einem Makro welches mir meine Datei
dann unter einem Namen speichern soll, der als Zellwert in einer Zelle steht.
z.B. in A1
Zunächst noch als Anmerkung, das Makro funktioniert wunderbar, wenn der
Zielpfad ( z.B.: C:\Testdateien\Test1 ) bereits existiert, dann gibts kein Problem.
Der Fehler taucht erst auf wenn der Ordner X noch gar nicht existiert, und ich also dann versuche da zu Speichern wo ganz klar dieser Ordner noch nicht existiert .
Jetzt hatte ich gedacht / versucht in diese Zelle ( A1 ) mal angenommen einen
Pfad an zu geben der wie gesagt noch nicht existiert, und bin eigentlich davon ausgegangen, das mir das Makro dann dort die entsprechenden Ordner einrichtet,
Anhand dieser Zieldefinition aus der Zelle A1.
Funkt so scheinbar nicht , kann mir Jemand von Euch hier bitte kurz einen Tipp geben wie man das so hinbekommt, das er dann den Ordner ebenfalls entwirft, sollte dieser noch nicht existieren.
z.B.: C:\Dateien\EXCEL\Test\Nummer1 oder so ähnlich
Ziel des ganzen sollte sein durch das Benennen der Zelle sich das Speichern zu erleichtern, und nicht jedesmal noch vorher Ordner zu entwerfen / platzieren.
Ich wäre euch sehr sehr dankbar wenn ihr mir kurz helfen könntet, Vielen lieben Dank im Voraus
Gruß udo
Ich hab hier mal noch mein Makro , wie s bisher aussieht:
Sub speichern_unter()
Dim Mldg As Byte
Mldg = MsgBox(" Speichern unter angezeigtem Zielpfad & Namen ? ", vbYesNo + vbQuestion, "", "", 0)
If Mldg = 6 Then ' ja es soll gelöscht werden
ThisWorkbook.SaveAs Range("AZ182").Value
End Sub