Problem mit SaveAs
23.08.2006 12:57:25
Andreas
ich will eine Datei Tabellen.xls unter einem neuen Namen abspeichern lassen. Der Aufruf dazu erfolgt aber über einen Button in einer anderen Datei. Wie kann ich denn das machen, denn folgendes funktioniert nicht:
Private Sub CommandButton1_Click()
AWorkbook = Workbook("Tabellen.xls")
meldung = MsgBox("Geben Sie einen Namen ein, unter welchem die Datei gespeichert werden soll!", vbOKOnly, "Speichern")
neuerName = Application.GetSaveAsFilename
AWorkbook.SaveAs Filename:=neuerName
End Sub
Kann mir jemand helfen?
Gruss
Andreas