Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.


Share this Page URL
Help

Kapitel 8: So erstellen Sie Prüffunktion... > 8.4 So prüfen Sie die Existenz einer... - Pg. 159

So prüfen Sie die Existenz einer Tabelle mappe innerhalb der Funktion MappeOffen zu aktivieren. Schlägt dies fehl, dann wird ein Fehler verursacht, der aber abgefangen werden kann. Im Fehlerfall wird als Rückgabeargument der Wert False hinterlegt. Im anderen Fall, wenn die Arbeitsmappe aktiviert werden kann, wird der Wert True als Rückgabeargument behalten, der zu Beginn der Funktion per D EFAULT gesetzt wurde. Somit gibt die Funktion den richtigen Status an das Makro zurück. Das aufrufende Makro können Sie in Listing 8.6 einsehen: 1 2 Listing 8.6: Öffnen einer Mappe nach erfolgter Prüfung Sub ArbeitsmappeÖffnen() Dim B As Boolean Const Datei = "Mappe1.xls" B = MappeOffen(Datei) If B = False Then Workbooks.Open Datei Else 'Kommentar: keine weitere Aktion. End If End Sub 3 4 5 6 7 Geben Sie den Namen der Arbeitsmappe, die überprüft werden soll, in einer Kon-