Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema OptionButton
Screenshot zu OptionButton	OptionButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema ScrollBar
Screenshot zu ScrollBar	ScrollBar-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema SpinButton
Screenshot zu SpinButton	SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Application.Dialog Button abfragen | Herbers Excel-Forum

• Application.Dialog Button abfragen von Universal vom 25.01.2010 08:48:48
• AW: Application.Dialog Button abfragen - von Rudi Maintaire am 25.01.2010 09:06:52
  • AW: Application.Dialog Button abfragen - von Universal am 25.01.2010 09:19:22
• AW: Application.Dialog Button abfragen - von Universal am 25.01.2010 09:09:01

Betrifft: Application.Dialog Button abfragen von: Universal
Geschrieben am: 25.01.2010 08:48:48

Moin, moin liebe VBA`ler,

hab da ein kleines Problem und find keinen Beitrag dazu - weder in der MS Hilfe noch über Google ...

Nach der Erstellung einer neuen Excel-Arbeitsmappe, wird diese über ein Dialogfenster gespeichert. Nun würde ich gern die Buttons (Speichern, Abbrechen) von diesem Dialogfenster auslesen ... Gibt es da eine Möglichkeit?

Hier meine Code-Zeile:

Application.Dialogs(xlDialogSaveAs).Show FileName

Vielen Dank für eue Hilfe!!!

viele Grüße
Uni

Betrifft: AW: Application.Dialog Button abfragen von: Rudi Maintaire
Geschrieben am: 25.01.2010 09:06:52

Hallo,
musst du einer Var. zuweisen

Sub tt()
Dim FileName, blnTest As Boolean
FileName = "Test_x.xls"
blnTest = Application.Dialogs(xlDialogSaveAs).Show(FileName)
If blnTest = False Then MsgBox "Abbruch"
End Sub

Gruß
Rudi

Betrifft: AW: Application.Dialog Button abfragen von: Universal
Geschrieben am: 25.01.2010 09:19:22

Hi Rudi,

danke für deine schnelle Antwort! :-)

Ich habe es schon selbst rausbekommen, jedoch ist deine Variante programmiertechnisch korrekter ... :-))

Ich danke dir!

Gruß
Uni

Betrifft: AW: Application.Dialog Button abfragen von: Universal
Geschrieben am: 25.01.2010 09:09:01

Au weija ...

hab mal eben ein bisschen rumprobiert ... sorry, ich hab die Lösung gefunden.

Tut mir echt leid - so entsteht also Forum-Müll ... :-((

viele Grüße
Uni

Hier mein Code:

Sub SaveAsDialog()

vSaveAs = Application.Dialogs(xlDialogSaveAs).Show(DestFileName)
      If vSaveAs = False Then
              'Was auch immer das Makro tun soll

End Sub

Beiträge aus den Excel-Beispielen zum Thema "Application.Dialog Button abfragen"