Hallo...
Excel speichern unter ..... was mach ich falsch?
Private Sub CommandButton5_Click()
Do
fName = Application.GetSaveAsFilename(Tabelle6.Range("M8").Value)
Loop Until fName <> False
NewBook.SaveAs Filename:=fName
End Sub
Danke im voraus für eure Hilfe....
|