MsgBox in Abhängigkeit von Funktionen (Com-Button)

Forumthread: MsgBox in Abhängigkeit von Funktionen (Com-Button)

25.11.2014 14:39:31

Funktionen

Hallo,
ich habe folgenden Code hinter einen Command-Button gelegt:

Sub ()
for #1
for #2
for #3
for #4
Funktion1 mit 4 Schleifen
sonst
Funktion2 mit 4 Schleifen
Nächste Schleife #4
Nächste Schleife #3
Nächste Schleife #2
Nächste Schleife #1
End Sub

Alles funktioniert super, nur möchte ich jetzt eine Msg-Box einbauen, die einen Text anzeigt, wenn keine der beiden Funktionen funktioniert.
Die Funktionen sind PDF-Datei öffnen und dabei werden 4 Variablen berücksichtigt.
Wenn keine PDF-Datei geöffnet werden kann, soll die Nachricht ausgegeben werden.
Schreibe ich >Msgbox test Schreibe ich >Msgbox test Kann mir einer von euch verraten, wie ich den Msg-Box-Aufruf eingeben muss, damit die Box nur dann angezeigt wird, wenn Funktion1 und Funktion2 kein Ergebnis haben, also wenn aus irgend einen Grund keine PDF geöffnet wird, sei es weil am Zielort keine PDF ist, oder weil eine der 4 Variablen nicht erfüllt wird.
Vielen Dank im Voraus.
Michael

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MsgBox in Abhängigkeit von Funktionen (Com-Button)

25.11.2014 15:39:36

Funktionen
toller Code owT

25.11.2014 15:40:41

Rudi

AW: MsgBox in Abhängigkeit von Funktionen (Com-Button)

25.11.2014 15:39:36

Funktionen

Hallo Michael,
Du könntest evtl. mit einer Funktion abfragen, ob die Datei existiert:

Function FileOrDirExists(PathName As String) As Boolean
'Macro Purpose: 

Function returns TRUE if the specified file
'               or folder exists, false if not.
'PathName     : Supports Windows mapped drives or UNC
'             : Supports Macintosh paths
'File usage   : Provide full file path and extension
'Folder usage : Provide full folder path
'               Accepts with/without trailing "\" (Windows)
'               Accepts with/without trailing ":" (Macintosh)
Dim iTemp As Integer
'Ignore errors to allow for error evaluation
On Error Resume Next
iTemp = GetAttr(PathName)
'Check if error exists and set response appropriately
Select Case Err.Number
Case Is = 0
FileOrDirExists = True
Case Else
FileOrDirExists = False
End Select
'Resume error checking
On Error GoTo 0
End Function

Wenn z.B. strPath die Variable des Suchpfades zur PDF-Datei darstellt,

dann frage am Ende des Makros einfach so ab:

If FileOrDirExists(strPath) = False Then

MsgBox "Datei existiert nicht"

End if

Ist ungetestet. Funktion stammt nicht von mir.

Gruß

Klaus

toller Code owT

25.11.2014 15:40:41

Rudi

Beliebteste Forumthreads (12 Monate)

MsgBox in Abhängigkeit von Funktionen (Com-Button)

Forumthread: MsgBox in Abhängigkeit von Funktionen (Com-Button)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread