Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aufruf Benutzerdefinierte Funktion

Aufruf Benutzerdefinierte Funktion
20.06.2005 08:54:24
Markus
Guten Morgen,
ich hab ein kleines Problem mit einer Benutzerdefinierten Funktion, genauer gesagt mit dem Aufruf dieser Funktion.
Die Funktion macht folgendes, Sie bekommt den Wert einer Zelle übergeben und subtrahiert den alten Wert dieser Zelle. Mein Problem ist, wenn ich 2 mal hintereinander den gleichen Wert in die Zelle eingebe, kommt nicht 0 raus.
Die Funktion wird nämlich nicht aufgerufen wenn Excel keinen neuen Wert feststellt.
Kann man das irgendwie umgehen ? Wie kann ich Excel zum Aufruf der Funktion bei jeder Eingabe zum Aufruf meiner Function bringen ?
Danke schon im voraus für Eure Hilfe.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aufruf Benutzerdefinierte Funktion
20.06.2005 08:55:27
Hajo_Zi
Hallo Markus,
wo ist der Code für Deine Funktion?
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


AW: Aufruf Benutzerdefinierte Funktion
20.06.2005 08:57:56
Markus
Static

Function RG_CHANGE(FAC_RG_AV As Double) As Double
Dim old_val As Double
FAC_RG_AV_OLD = old_val
old_val = FAC_RG_AV
RG_CHANGE = FAC_RG_AV - FAC_RG_AV_OLD
End Function

AW: Aufruf Benutzerdefinierte Funktion
20.06.2005 09:28:38
Hajo_Zi
Hallo Markus,
ich habe mir jetzt mal die Funktion angesehen und mein Eindruck das hättest Du einfacher hinbekommen mit =A1. Nartürlich die Zelladresse angepast

Function RG_CHANGE(FAC_RG_AV As Double) As Double
Dim old_val As Double
' old_val ist mit Null definiert
' FAC_RG_AV_OLD auf Null setzen
FAC_RG_AV_OLD = old_val
' old_val= übergebenen Wert
old_val = FAC_RG_AV
' rg_change= übergebenen Wert - Null
RG_CHANGE = FAC_RG_AV - FAC_RG_AV_OLD
End Function

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: Aufruf Benutzerdefinierte Funktion
20.06.2005 09:41:32
Markus
Ja, das is schon klar, so funktioniert das nicht.
Da fehlt das STATIC vor der Funktion-Anweisung (Is wohl beim Copy & Paste verschwunden).
Sorry war mein Fehler.
Aber auch diese Funktion wird nicht aufgerufen wenn ich 2mal den gleichen Wert eingebe.
Ich will dass bei jeder eingetippten Zahl meine Function aufgerufen wird.
AW: Aufruf Benutzerdefinierte Funktion
20.06.2005 09:53:17
Markus
Also nochmal zur Sicherheit:
STATIC

Function RG_CHANGE(FAC_RG_AV As Double) As Double 'hier sollte eigentlich STATIC FUNCTION... stehen
Dim old_val As Double
FAC_RG_AV_OLD = old_val
old_val = FAC_RG_AV
RG_CHANGE = FAC_RG_AV - FAC_RG_AV_OLD
End Function

Irgendwie erkennt das Forum die Static_Anweisung nicht und setzt sie immer wieder ne Zeile über den Code.
Gruß
Markus
Anzeige
AW: Aufruf Benutzerdefinierte Funktion
20.06.2005 10:06:26
Hajo_Zi
Hallo Markus,

Static Function RG_CHANGE(FAC_RG_AV As Double) As Double
Application.Volatile
Dim old_val As Double
FAC_RG_AV_OLD = old_val
old_val = FAC_RG_AV
RG_CHANGE = FAC_RG_AV - FAC_RG_AV_OLD
End Function

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: Aufruf Benutzerdefinierte Funktion
20.06.2005 10:10:59
Markus
1000 Dank !!!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige