Herbers Excel-Forum - das Archiv

Function und Sub kombinieren

Bild

Betrifft: Function und Sub kombinieren
von: Thorsten
Geschrieben am: 23.09.2003 14:27:40
Hi,

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.
Bild

Betrifft: AW: Function und Sub kombinieren
von: GerdW
Geschrieben am: 23.09.2003 15:00:47
Abgesehen davon, dass das Option Explicit da weg muss(gehört in den
Deklarationsteil), schreib die Funktion einfach in eine Zelle
und zeichne dir die Formel per Makro auf.

Gerd
Bild

Betrifft: Danke
von: Thorsten
Geschrieben am: 23.09.2003 15:26:13
Danke, auf die Idee mit dem Recorder war ich nicht gekommen
 Bild
Excel-Beispiele zum Thema " Function und Sub kombinieren"
Msg- und InputBoxes kombinieren und nach Ergebnis verzweigen