Anzeige
Archiv - Navigation
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA Code If Schleife
08.02.2013 13:53:23
Dirk
Hallo Forum,
ich habe in einem Makro die Anweisung stehen ein Dateifenster zu öffnen:
"Application.Dialogs(xlDialogOpen).Show"
Jetzt möchte ich eine If-Schleife beschreiben, die eintreten soll, wenn jemand den Button "Abbrechen" in diesem Dialog drückt. Wie muss der Code für den Fall "Wenn der Abbrechen-Button gedrückt wird dann....." Also alles was zwischen If und then stehen muss ist für mich unklar.
Herzlichen Dank!
Dirk

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Code If Schleife
08.02.2013 14:11:17
Peter
Hallo Dirk,
meinst Du es so:
Option Explicit
Public Sub Versuch()
Dim xDatei As String
xDatei = CStr(Application.Dialogs(xlDialogOpen).Show)
If UCase(xDatei) = "FALSCH" Then
MsgBox "Es wurde Abbrechen angeklickt."
Exit Sub
End If
End Sub

Gruß Peter

AW: VBA Code If Schleife
08.02.2013 14:17:35
Dirk
Hallo Peter,
klasse - funktioniert! Vielen Dank!!
Grüße aus Hannover
Dirk

AW: VBA Code If Schleife
08.02.2013 14:21:44
Daniel
Hi
ist so aber umständlich.
application.Dialogs(...) ist eine Funktion, die WAHR zurückliefert, wenn sie ausgeführt wurde und FALSCH wenn abgebrochen wurde.
das kann man im Code auch direkt verwenden:
If Not Application.Dialogs(xlDialogOpen).Show Then
MsgBox "abgerochen"
Else
MsgBox "ausgeführt"
End If
Gruß Daniel
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige