Anzeige
Archiv - Navigation
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Function und Sub kombinieren

Function und Sub kombinieren
23.09.2003 14:27:40
Thorsten
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.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Function und Sub kombinieren
23.09.2003 15:00:47
GerdW
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
Danke
23.09.2003 15:26:13
Thorsten
Danke, auf die Idee mit dem Recorder war ich nicht gekommen
Anzeige

33 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige