Einzelne statische Variable leeren, geht das?

Hallo
kann man per Code eine Statische Variable innerhalb einer Funktion leeren oder zurücksetzen?
als im Prinzip folgendes machen


Sub Test()
a = meineFunktion()
b = meineFunktion()
c = meineFunktion()
Zähler zurücksetzen
d = meineFunktion()
e = meineFunktion()
f = meineFunktion()
end Sub

Function meineFunktion() as Long
Static Zähler as Long
Zähler = Zähler + 1
meineFunktion = Zähler
End Function

dh die Variable d soll nicht den nächsten Wert 4 erhalten, sondern ab d soll wieder mit 1 angefangen werden.
Im Realproblem geht's um ein Datenfeld, welches nicht bei jedem Funktionsaufruf befüllt werden soll, sondern nur beim ersten mal.
Trotzdem ist zu bestimmten Zeitpunkten eine Neubefüllung erforderlich, daher müsste das Datenfeld "von aussen" geleert werden.
Gruß Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim a, b, c, d, e, f a = meineFunktion() b = meineFunktion() c = meineFunktion() Zaehler = 0 d = meineFunktion() e = meineFunktion() f = meineFunktion() Debug.Print a, b, c, d, e, f End Sub Function meineFunktion() As Long Static Zaehler As Long Zaehler = Zaehler + 1 meineFunktion = Zaehler End Function

Hi
das bringt nichts, wenn die Statischen Variablen nicht zurückgesetzt werden.
die Realfunktion ist im Prinzip ein beschleunigter Verweis für unsortierte Daten mit mehrfach vorkommenden Suchbegriffen (listgengrösse c.a. 20.000 Zeilen für Quell und Zieldatei).
Der Trick für die Beschleunigung liegt hauptsächlich darin, dass die Daten nicht für jede Formel erneut eingelesen werden wie in den Excelstandardfunktionen, sondern nur einmalig bei der ersten Verwendung in ein statisches Dictionary gelesen werden.
Ist dieses Dictionary vorhanden, wird es nur noch ausgelesen ohne das die Datenquelle erneut eingelesen wird.
Dh wenn ich eine neue Datenquelle einlesen will, muss ich erst das Dictionary löschen, damit es neu erstellt wird.
Gruß Daniel

Option Explicit Private llngZähler As Long Public Sub Test() Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long a = meineFunktion() b = meineFunktion() c = meineFunktion() Call Zähler_zurücksetzen d = meineFunktion() e = meineFunktion() f = meineFunktion() Debug.Print a, b, c, d, e, f End Sub Public Function meineFunktion() As Long llngZähler = llngZähler + 1 meineFunktion = llngZähler End Function Public Sub Zähler_zurücksetzen() llngZähler = 0 End Sub VBA/HTML - CodeConverter für Office-Foren AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann Projektbetreuung durch mumpel Code erstellt und getestet in Office 12

Beliebteste Forumthreads (12 Monate)

Einzelne statische Variable leeren, geht das?

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einzelne statische Variable leeren, geht das?

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread