Problem mit benutzerdef. Funktionen
31.01.2004 14:01:51
Lorenz K.
Folgendes Problem!
Ich lasse eine Serie von Subs in folgender Form ablaufen:
With Application
.run "makro1"
.run "makro22"
.run "makro3"
.run "makro1"
.run "makro"
.run "makro6"
End With
Wie kann man verhindern, daß auf benutzerdefinierte Funktionen rekursiv zugegriffen wird?
Obwohl in dem Sheet welches aktiv ist und die Funtionen in keiner Weise angefordert werden,
rufen sich die Funktionen selbst auf. Scheinbar produziere ich mit dieser vorgangsweise einen Stapelüberlauf!?!???
Hier zwei dieser Funktionen, die verwendet werden:
1.)
Function WertUndFarbe(rng As Object, iColor As Integer, sTxt As String) As Integer
Dim rngZelle As Range
Dim iCounter As Integer
For Each rngZelle In rng.Cells
If rngZelle.Interior.ColorIndex = iColor And _
rngZelle.Value = sTxt Then _
iCounter = iCounter + 1
Next rngZelle
WertUndFarbe = iCounter
End Function
2.)
Function Nacht(r As Range)
Application.Volatile
For Each r In r.Cells
If IsNumeric(r) Then
If r.Font.ColorIndex = 3 Then
Nacht = Nacht + r.Value
End If
End If
Next r
End Function
Wie kann man erreichen, daß auf genannte benutzerdefinierte Funktionen z.B. nur in Sheet "Tabelle1, Tabelle5, Tabelle11" zugegriffen wird?
Danke für die Mühe und Grüsse Lorenz