Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.Dialog Button abfragen | Herbers Excel-Forum

Forumthread: Application.Dialog Button abfragen

Application.Dialog Button abfragen
25.01.2010 08:48:48
Universal

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

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Application.Dialog Button abfragen
25.01.2010 09:06:52
Rudi Maintaire
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
AW: Application.Dialog Button abfragen
25.01.2010 09:19:22
Universal
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
Anzeige
AW: Application.Dialog Button abfragen
25.01.2010 09:09:01
Universal
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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige