Function und Sub kombinieren
23.09.2003 14:27:40
Thorsten
ich möchte gerne eine
Function und ein
Sub kombinieren bzw. über meine
Sub auf eine Formel zugreifen, die über ein
Function definiert werden.
Die
Function sieht wie folgt aus:
Function FarbsummeHA(Bereich As Range, Farbe As Integer)
Option Explicit
' Hintergrund _
In Zelle=FarbsummeHA(B5:B37;19)
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
FarbsummeHA = FarbsummeHA + 1
End If
Next
End Function
Versuche ich nun über meine Sub, die Formel zu verwenden, klappt das nicht. In meiner
Sub steht:
Sub Thorsten()
Sheets("1").Cells(46, 2).Formula = "=(FarbsummeHA(B5:B37;19)"
End Sub
Wieso kommt da dann eine Fehlermeldung und wie kann ich das lösen??
Danke im voraus.