Kein Rückgabewert benutzerdefinierter Funktion

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function count_lines(Line As String) As Integer Dim row_counter As Integer row_counter = 4 ' 4 -> Offset between header and lines to count Do While Sheets("Resource").Cells(Line + row_counter, 28).Value "20" And _ Sheets("Resource").Cells(Line + row_counter, 28).Value "" row_counter = row_counter + 1 Loop count_lines = row_counter - 4 ' Header offset substraction End Function

…Matthias,
desto eher bin ich geneigt, Eto beizupflichten, obwohl ich zuerst eher an den Gesamteindruck deiner Anfrage dachte. Die wichtigen Passagen musste ich zusammenstellen, um nichts zu übersehen:
(1) Aufgrund einer besonderen Formatierung der Zeilen auf meinem Excel-Sheet, war ich gezwungen, eine benutzerdefinierte Funktion zum zählen bestimmter Zeilen zu schreiben.
Mit dem Aufruf in einer Zelle (hier mit relativem Bezug als "Name") gibt diese Funktion auch einen korrekten Wert zurück:
=count_lines(ROW(Name))
Verwende ich allerdings den Rückgabewert der Funktion als Argument der Excel-BEREICH.VERSCHIEBEN-Funktion, ist der Bereich leer:
=OFFSET(Name;4;6;Module3.count_lines(Row(Name));1)
Auch die Namensdefinition über =count_lines(Row(Name)) liefert beim Aufruf #Value in der Zelle zurück.
Meine Frage, gibt es die Möglichkeit durch einen mir unbekannten Syntax, den Rückgabewert der Funktion im Namensmanager zu erhalten?
(2) Um das was in der Funktion selbst passiert, heißt wie diese konkret rechnet, ist an dieser Stelle unwichtig. Sry, wollte es nur abkürzen um nicht zu verwirren.
Die Funktion selbst liefert den korrekten Wert (eine Anzahl) beim Aufruf im Editor und in einer Zelle zurück. Nur als Argument in der BEREICH.VERSCHIEBEN-Funktion in der Namensdefinition liefert sie keinen Wert zurück.
Zur Nachstellung könnt Ihr den vereinfachten vollständigen Code benutzen: count_lines(Line As String) As Integer: count_lines = 5
Es geht hier nur um den Aufruf aus der Namensdefinition heraus. Sonst funktioniert der Aufruf!
(3) Problem ist aber verständlich geschildert?
In Spalte 28 stehen verschiedene Werte bzgl. der Formatierung der Zellen einer vorderen Spalte des gleichen Sheets. Diese sollen bis Formatierung "20" oder in einem Fall "" gezählt werden.
Allgemein gesehen kulminierte eine, wenn auch höfliche, so doch leider auch minimalistisch ausgestattete Anfrage, in ihrem Kern als Mäuschen. Die Raben krächzten und aus dem Kyffhäuser trat nicht Barbarossa, sondern ein Zwerglein, jenseits von (VBA-)gut und (-)böse, wohl auch kein (Xl-)Profi! Wohl deshalb das Versteckspiel…? ;-]
Warum nur die Geheimnistuerei? Was für eine „besondere Formatierung“ und welche Auswirkungen kann diese auf normale Xl-Fktt haben? Was bedeutet Formatierung "20", wenn du gar nicht nach einer Formatierung, sondern dem Wert 20 (nicht mal dem Text, da wäre die Formatierung mit drin!) fragst?
Und natürlich war der „vereinfachte Code“ keine Hilfe, das sollte auch ein nicht mehr blutiger Anfänger sehen! Man fühlt sich glatt veralbert! Also eine völlig untaugliche Strategie, um eine qualifizierte AW zu bekommen! :-[
So, und jetzt zur achso geheimnisvollen UDF:
1. Warum ihr Argument den unangebrachten Datentyp String hat, wirst du erklären müssen!
2. Da sie auf den Datentyp Integer festgelegt ist, kann sie auch nur solche Ergebnisse und den StandardFehler #WERT! zurückgeben (was irrelevant ist, da auch keine andere Fehlerwert-Rückgabe vorgesehen ist)!
3. Alle Variablen, die Zeilen oder Spalten zählen bzw ihre Nrn verwenden, sollten mindestens als Long deklariert wdn (eigentlich ist Integer die Ausnahme bzw überflüssig)!
4. Auch, wenn es trotzdem auch mit der Zahl 20 fktioniert, warum .Value <> "20"? Die 20 wäre so ein Text, keine Zahl!
5. Line As String fktioniert nur, weil eine Addition im Spiel ist (Line + row_counter), bei der VBA einen rein numerischen Text in eine Zahl umwandelt.
Fazit: (das eigentliche „Xl-/VBA-Mysterium“)
a) Die UDF ist nicht matrixfml-tauglich! Etliche Xl-Fktt liefern aber ein Array als Ergebnis, auch, wenn es nur aus einem Wert besteht; so auch ZEILE und SPALTE, was man im Fml-Assi sehen kann. Das erlaubt deiner UDF zwar die Verarbeitung von Einzelwerten, geht aber daneben, wenn, wie bei BEREICH.VERSCHIEBEN, mehrere Werte auf einmal ausgegeben wdn sollen, denn das erfordert MatrixFml-Form! Eine einzelne Zahl (auch aus einer Fml oder UDF, die eine solche erzeugt) als Argument der UDF führt hingg nicht zu einem Fehler!
b) Eine UDF, die keinerlei ZellBezüge im Argument enthält, wird nicht automatisch neu berechnet. Auch ein per ZEILE oder SPALTE ermitteltes Argument wird hier keine Neuberechnung veranlassen, wenn irgendetwas in Spalte 28 verändert wird. Sie wird nur als Argument von BEREICH.VERSCHIEBEN neu berechnet, hptsächlich, weil diese Xl-Fkt volatil ist, um auch auf Änderungen in ihrem ZielBereich reagieren zu können.
c) Von einem Xl-Profi und VBA-Guten hätte man mehr erwartet… :-|
Morhn, Luc :-?

Hi Luc:-?, hi Hansueli,
zunächst, und bitte versteht das nicht als Floskel, vielen Dank für Eure ausführlichen Antworten :)
Offensichtlich bin ich Euch durch meine falschen Annahmen:
Um das was in der Funktion selbst passiert, heißt wie diese konkret rechnet, ist an dieser Stelle unwichtig
nicht so gegenübergetreten, wie es sich für eine "Hilfe" rufende Person gehört.
An dieser Stelle bitte ich euch um Entschuldigung für anmaßendes Verhalten. Ich denke es hat initial dazu beigetragen, destruktiv in mein Problem zu starten. Kommt nicht wieder vor!
Alle anderen Foren-Besucher, und auch ich, sind froh über die Zeit die Ihr investiert, um uns zeitnah zu helfen. Daher nochmals explizit, danke für Euren Einsatz!
Zu Euren Fragen:
Allgemein, ja ich verwende die englische Office-Version, daher die nicht klar abzugrenzenden Standard-Excel-Funktionsnamen von den eigenen. Zu dem springe ich in meinem Alltag zwischen mehreren Sprachen, was ein derart tiefgreifendes Wissen innerhalb VBA's ausschließt. Bin daher eher ein oberflächlicher - als ein spezifischer Entwickler. Ich hoffe ich erzürne niemanden mit dieser Aussage. :)
Auch das "Excel-Pro" und "VBA Gut" kann ich nicht ändern. Ist glaube ich Thread-Abhängig. Beim nächsten mal gern.
Der Modulname Module3 steht deswegen davor, weil es in anderen Foren explizit als Lösungsanzatz erwähnt wurde. Auch für mich sind Module global erreichbar und ich sehe keinen Unterschied ob ich es voranstelle oder nicht. Ist aber nicht falsch und hilft der Übersichtlichkeit, mMn.
Luc:-?:
Wohl deshalb das Versteckspiel? ;-]Korrekt! Bin kein Entwickler, wenn es nur funktionieren soll, halte ich mich gern so bedeckt wie möglich. Falsche Bescheidenheit, wenn mir geholfen werden soll, verstanden.
Warum nur die Geheimnistuerei?Ich kann nicht abschätzen, durch wie viele Hände die Mappe gehen wird, an welcher ich momentan sitze. Es gibt durchaus Personen, die Codezeilen googlen (kein Scherz). Nicht zuletzt Ihr wisst, was Datenschutz heutzutage bedeutet! Daher eher Vorsicht als Nachsicht.
Was bedeutet Formatierung "20"Der Rückgabewert der Fkt:

=GET.CELL(63;INDIRECT("RC[-25]";))

im Excel-Namensmanager angelegt. Das erlaubt es, in einer Spalte die Zellfarbe auszugeben, welche in der Spalte relativ berechnet 25 Spalten vorher festgelegt ist, ohne weitere Argumente auszugeben. In meinem Fall werden weiße Zellen gezählt, weil diese später anwenderseitig gefüllt werden sollen.
1. Warum ihr Argument den unangebrachten Datentyp String hat, wirst du erklären müssen!
Fehler von mir, habe vorher Zeichenketten übergeben und später geändert. Ist mir durch die automatische Typkonvertierung nicht aufgefallen.
2. Da sie auf den Datentyp Integer festgelegt ist, kann sie auch nur solche Ergebnisse und den StandardFehler #WERT! zurückgeben (was irrelevant ist, da auch keine andere Fehlerwert-Rückgabe vorgesehen ist)!Vorgesehen durch eigene Fehlerbehandlung oder was meinst du? Brauche nur einen Wert für BEREICH.VERSCHIEBEN. Dies soll die dynamische Länge des Bereiches zurückliefern.

3. Alle Variablen, die Zeilen oder Spalten zählen bzw ihre Nrn verwenden, sollten mindestens als Long deklariert wdn (eigentlich ist Integer die Ausnahme bzw überflüssig)!

Danke! Im Rest verwende ich es auch so. Hatte den Rückgabewert nur geändert, weil ich nicht wusste, welchen Rückgabewert BEREICH.VERSCHIEBEN als Argument akzeptiert.
4. Auch, wenn es trotzdem auch mit der Zahl 20 fktioniert, warum .Value "20"? Die 20 wäre so ein Text, keine Zahl!Weil ich offen gestanden nur die Value-Methode zur Rückgabe des Zellinhalts kenne. :(
5. Line As String fktioniert nur, weil eine Addition im Spiel ist (Line + row_counter), bei der VBA einen rein numerischen Text in eine Zahl umwandelt.Korrekt, siehe Pkt. 1
Zu deinem Fazit:
(a) Heißt, da BEREICH.VERSCHIEBEN auch mit weiteren Bereichen als Argument arbeiten kann, muss das Argument vom Typ Range sein um sie zuverlässig verwenden zu können?
(b) Klasse, danke! Das hatte ich nicht gewusst. Dadurch wird mir einiges klarer! :)
(C) Da diese immer subjektiv ist, und man schlicht und ergreifend nicht weiß, was man nicht weiß, hoffe ich du verzeihst mir meine Fehleinschätzung. ;)
--------------------------------------------------------------------
Hansueli:
Was bitte soll das mit Performance zu tun haben?
Ein Schleifendurchlauf ist immer dann schneller, wenn die zu verwendende Variable fest im Speicher allokiert ist. Sonst wird bei jedem Schleifendurchlauf ein neuer Pointer im Speicher erzeugt. Das ist bei C und ABAP zumindest so. Korrekt auch bei VBA?
Was ist eine 'Kürzel des Typs'? Verstehst du was Datentypen .......Meinte den Kürzel des Typs der vor den eigentlichen Variablennamen bzw. Funktion gestellt wird um auf den ersten Blick erkennen zu könnne, welchen Datentyp die variable, respektive welchen Rückgabewert eine Funktion anhand des Namens besitzt. Bsp.: chVariablenname für character, inFunktion für Integer-Rückgabewerte.
Im Grunde genommen läuft das auf eine Zählenwenn-Standardformel der Spalte 28 raus. Also fällt Deine Begründung für eine UDF vollständig ins Wasser.
...Korrekt. Ziel war es, die Anzahl weiß formatierter Zellen (rundherum sind die Zellen andersfarbig formatiert) zu zählen. Der Header ist an dieser Stelle als fest anzunehmen, weil an es an dieser Stelle keinen Sinn macht die Eingabemaske zu verändern. (Wohlwissend, dass User auf die dümmsten Ideen kommen. ;) )
Danke trotzdem für die weiteren Hinweise, auch wenn ich mir eine freundlichere Formulierung gewünscht hätte. :)
Bitte nimm es nicht persönlich, aber bitte beachte auch du für die Zukunft, (auch wenn mein Verhalten der Auslöser für deinen Unmut war, das steht außer Frage) kläre die Fragen zum warum, wieso und weshalb auch durch Nachfragen so wie Luc:-? es getan hat. Auch du hast in deinem Unmut angenommen, dass ich Deutsch und Englisch verdrehen würde, obwohl es eine andere Begründung dafür gab.
Ich danke Euch beiden nochmals enorm für Eure Zeit und bitte entschuldigt abschließend nochmals meine überhebliche "eigene Lösungsansätze nicht infrage stellende" Herangehensweise!!! Dieser Fehler passiert mir nicht wieder! :)
Ich und alle anderen freuen sich weiterhin über Eure konstruktiven, ehrlichen und gemeinnützigen Lösungshinweise!
Schönen Abend!

Beliebteste Forumthreads (12 Monate)

Kein Rückgabewert benutzerdefinierter Funktion

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

145 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kein Rückgabewert benutzerdefinierter Funktion

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

145 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread