Function "scharfmachen" ?
29.04.2002 18:55:29
San Stefano
Function Farbe(rngBereich As Object, intColor As Integer)
Dim intCounter As Integer
Dim rngAct As Range
Application.Volatile
For Each rngAct In rngBereich
If rngAct.Interior.ColorIndex = intColor Then
intCounter = intCounter + 1
End If
Next rngAct
Farbe = intCounter
End Function
Diese Function ist aber beim Zählen der Urlaubstage wieder notwendig. Kann man diese Function durch einen einfachen Mausklick oder über ein Makro ein- bzw ausschalten? Das mühsame Ausserkraftsetzen mit " ' " in jeder Zeile ist ganz schön nervig.
Vielen Dank im vorraus.