Speichern mit Dateiname aus Zelle ohne Makro
01.05.2003 13:16:52
Cordula
1. Mai = Tag der Arbeit und ich kriegs nicht hin...! :-)
mit folgendem Makro in einem Modul wird über ein Symbol die Datei in dem VZ Flavio mit dem Dateinamen aus Zelle C1 gespeichtert.
Sub speichern()
Pfad = "C:\Flavio\"
Dateiname = Cells(1, 3).Value
ThisWorkbook.SaveAs FileName:=Dateiname, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
On Error Resume Next
For Each VBkomp In ThisWorkbook.VBProject.VBComponents
ThisWorkbook.VBProject.VBComponents.Remove VBkomp
Next VBkomp
End Sub
Das Probelm: Erstmalige Speicherung funktioniert! In Zelle C1 steht Cordula. Öffne ich die Vorlage ein 2. Mal und überschreibe ich die Zelle C1 mit einem anderen Namen, klicke auf mein Symbol zum Speichern, erscheint die Meldung "MS Excel kann Makro "C:\Flavio\Cordula.xls! Speichern nicht finden
Dieses Speicher-Makro soll NUR in meiner Vorlage ablaufen.
Würde mich sehr freuen, wenn Ihr mir helfen könntet.
Vielen Dank schon einmal
LG
Cordula