Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Code If Schleife

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

Anzeige

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

Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige