Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Application.Dialog Button abfragen | Herbers Excel-Forum


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"