Microsoft Office Tutorials and References
In Depth Information
8.5 Weitere Funktionen
Workbooks.Open ThisWorkbook.Path & "\Mappe5.xls"
...
For Monat = 1 To 12
DatumErster = DateSerial(Jahr, Monat, 1)
AnzahlTage = Application.Run _
("Mappe5.xls!Modul1.Monatsende", Jahr, Monat)
For Tag = 1 To AnzahlTage
...
Zur Erläuterung:
Die Excel-Datei Mappe5.xls wird geöffnet.
Die Funktion Monatsende() aus Modul1 der Datei Mappe5.xls wird
mit den Parametern Jahr und Monat aufgerufen und liefert die Anzahl
der Tage des betreffenden Monats.
8.5
Weitere Funktionen
In diesem Abschnitt werden einige Funktionen erläutert, die nicht zu
den obengenannten Gruppen gehören.
8.5.1
Anwendung unterbrechen
Mit Hilfe der VBA-Funktion Timer() wird die Anzahl der Sekunden seit
Mitternacht berechnet. Sie können diese Funktion dazu nutzen, eine
Anwendung zu unterbrechen, siehe folgendes Beispiel:
Timer()
Sub ZeitVerzoegerung()
Dim start As Double
MsgBox "Nach dem Drücken des Ok-Buttons läuft die Zeit"
start = Timer
Do
DoEvents
Loop Until Timer > start + 5
MsgBox "Das waren 5 Sekunden"
End Sub
Zur Erläuterung:
Der aktuelle Zeitpunkt wird mit Hilfe der Funktion Timer() in der
Variablen start gespeichert.
Search JabSto ::




Custom Search