Speichern unter Button in VBA (Excel) + Hide Drucken button

Hallo!

Ich habe ein Problem. Ich habe ein kleines Formular erstellt und möchte dieses jetzt mit einem Speichern Button versehen. Bei click auf den button soll der ganz normale Speicher Dialog angezeigt werden, also Speichern unter.

Des weiteren habe ich auch einen Drucken Button implementiert, dieser soll aber nicht auf dem Ausdruck zu sehen sein. Ich wäre über jede Hilfe sehr dankbar!

MFG

Sariele

 

Soo! Edit:

Leider noch keine Antworten, vielleicht kommt ja nach diesem Post was. Ich habe den Speicher Button soweit hingekriegt, nur wenn ich auf Speichern klicke findet sich die Datei nicht.

Zur Veranschaulichung mal der Code den ich benutzt habe:

Private Sub CommandButton2_Click()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.xls), *.xls")
Select Case fileSaveName
Case False
Exit Sub


End Select
End Sub

Vielleicht kann mir ja einer helfen!

bis dann!

Sariele

 

...wie bei diesem Befehl vorgesehen !
Dein Befehl zeigt die Dialogbox an, Du wählst einen Pfad... und Pfad/Dateiname werden in die Variable fileSaveName geschrieben.
Speichern musst Du selbst.... So geht es >

Code:

Private Sub CommandButton2_Click()

fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="Microsoft Office Excel-Arbeitsmappe (*.xls), *.xls")

If fileSaveName = False Then
        'wenn im Dialogfeld auf Abbrechen geclickt wurde...
    MsgBox "Vorgang wurde abgebrochen !" & vbCr & _
            "Datei wurde NICHT gespeichert       " , _
            vbOKOnly, "Achtung....."
Else
        'sonst wird gespeichert
    ActiveWorkbook.SaveAs fileSaveName
End If

End Sub

Den nicht zu druckenden Button >>> leider vergessen, wie das ging...

Gruss Urs

 

Manchmal dauert es etwas länger,,, aber es kam doch noch...

Nicht zu druckender CommandButton
Wenn der Button aus der Symbolleiste "Steuerelement-Toolbox" stammt >

Eigenschaften des Steuerelementes anzeigen lassen und dort die Eigenschaft "PrintObject" auf False setzen.

Gruss Urs


PS: Nach seinem drängenden "leider noch keine Antworten" hat der TO wohl die Lust verloren... Motivierend für uns !