Rueckgabewert von Speichern unter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Rueckgabewert von Speichern unter

05.11.2003 14:12:32

Harald Kapp

Noch offen ...

05.11.2003 19:56:55

Volker Croll

Step by Step

06.11.2003 06:28:06

Harald Kapp

OK, aber wie geht das in VBA ...

06.11.2003 07:01:47

Volker Croll

AW: Bitte in der Recherche suchen

06.11.2003 08:05:07

Harald Kapp

So geht's ...

06.11.2003 15:40:11

Volker Croll

Hallo Volker,
hast Recht, war nicht sauber ausgedrückt von mir.

Also
1. Schritt: Ansicht -> Symbolleisten anpassen
Das aufpoppende Formular ignorierst Du. Statt dessen
2. Schritt:
In Excel zunächst mit der linken Maustaste das menü "Datei" aktivieren (die übliche Auswahlliste muss aufklappen)
3. Schritt: Mit der rechten Maustaste in der aufgeklappten Auswahlliste auf den Punkt "Speichern unter..." klicken
4. Schritt: Jetzt mit der linken Maustaste den Punkt "Makro zuweisen" auswählen.

Das Makro für das Ersetzen der originalen "Speichern unter..." Funktion soltest Du vorher bereits geschrieben haben. Eventuell genügt das anscheinend schon vorhandene Makro innerhalb Deiner VBA-Applikation.

Gruß Harald

Hallo Harald,

folgendes funktioniert wie ich es wollte:

Code in "DieseArbeitsmappe" ->
------------------------------

Option Explicit
---------------


Private Sub Workbook_Open()
'Speichern unter im Menue Datei umleiten:
With Application.CommandBars("Worksheet Menu Bar").Controls("Datei")
.Controls("Speichern unter...").OnAction = "EigenesSpeichernUnter"
End With
End Sub

------------------------------------------------------------------------


Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Speichern unter wieder zuruecksetzen:
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

------------------------------------------------------------------------

Code in Modul1 ->
-----------------
Option Explicit
Sub EigenesSpeichernUnter()

Dim Name As Variant

Name = Application.GetSaveAsFilename(, "Excel-Dateien (*.xls),*.xls")

' falls Abbrechen gedrueckt wurde:
If Name = False Then Exit Sub ' deshalb muss Name als Variant deklariert werden !

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=Name
Application.DisplayAlerts = True

End Sub

------------------------------------------------------------------------------

Das ist zwar zunaechst quasi nur der Nachbau des "normalen" Speichern unter..."
aber der vom User fuer die Datei angegebene Name laesst sich mit IFs o.a. abfragen, pruefen usw.

Harald, herzlichen Dank fuer Deine Hilfe !

Gruss Volker

Beliebteste Forumthreads (12 Monate)

Rueckgabewert von Speichern unter

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread