Statische Variablen - Was ist das?

Ein kleines Beispiel mit statischen Variablen.

Die statische Variable Zahl wird nicht am Ende der Funktion Zaehlen gelöscht, sondern bleibt solange erhalten wie das VBA-Programm dauert.

Sub Test_Zaehlen()
    Dim i As Long

    For i = 1 To 100
        Debug.Print Zaehlen
    Next
End Sub

Function Zaehlen()
    Static Zahl As Long
    Zahl = Zahl + 1
    Zaehlen = Zahl
End Function

Code eingefügt mit Syntaxhighlighter 4.14

Einsatzmöglichkeiten? Zum Beispiel um die Anzahl der Funktionsaufrufe zu ermitteln. Kann hilfreich zum debuggen eines Programms sein.

Your rating: Keine Average: 4.4 (5 votes)