Function ruft Procedur auf !
08.01.2005 20:04:57
Rawon
Sämtliche versuche meinerseits waren bis Dato erfolglos.
Nachstehend ein Quellcode der nicht funktioniert.
'Funktion SummeSchriftWeiss funktioniert einwandfrei aber
'sobald ich die Prozedur "test" Aufrufe funktioniert die
'Funktion nicht mehr !!!?
'Danke im Voraus.
Public
Function SummeSchriftWeiss(Bereich As Object) As Double
Dim s As Double
Dim a As Object
Application.Volatile
s = 0
For Each a In Bereich
If a.Font.ColorIndex = 3 Then '
s = s + 1
End If
Next
SummeSchriftWeiss = s
test
End Function
Sub test()
ActiveCell.Font.ColorIndex = 3
'cells(10,1) = "ABCD"
'cells(11,1).text = "ABCD"
'cells(12,1).Value = "ABCD"
End Sub