speichern unter menü
18.10.2002 08:06:25
andre
basic text:
Private Sub CommandButton2_Click()
ZuSpeicherndeDatei = Application.GetSaveAsFilename( _
fileFilter:="Microsoft Exel-Arbeitsmappe (*.xls), *.xls")
If ZuSpeicherndeDatei <> False Then
MsgBox "Speichern unter " & ZuSpeicherndeDatei
End If
End Sub