Function Anzahl3(Bereich As Range)
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Value <> "" And Zelle.Value <> "0" Then Anzahl3 = Anzahl3 + 1
Next Zelle
End Function
Wenn ich in OO 2.4 für eine Datei ein neues Modul erstelle und dorthinein den gleichen Code stelle so wird "Range" angemeckert, auch in der Hilfe ist nix zu "Range" zu finden, scheinbar ist das unbekannt.
Lasse ich "As Range" weg, so kommt kein Fehler mehr aber in der mit OO geöffneten Datei bleibt die zelle leer, also die Formel liefert "nichts" als Ergebnis. Fehlermeldung kommt keine.
Unter Einfügen--Funktion ist "Anzahl3" nicht aufgelistet.
Meine Fragen:
a) Kennt OO benutzerdefinierte Funktionen?
b) Wenn ja, wie mache ich das in diesem Beispiel damit es funktioniert?
Ich habe in Extras--Makros--Makros verwalten--Makros ausgewählt, Python, Beanshell usw. sagt mir gar nix.
Danke ^ Gruß
Reinhard