leere Zelle keine Berechnung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hmmm....Passiert mir doch recht oft, das ich an die Grenzen von Excel stoße....
Obs an mir liegt ;-)
Typ UDF:
Double
Hier mal die ganze Funktion:


Public Function TestmakroRGBnachX(ByVal R As Double, G As Double, B As Double, xn As Double) As  _
Double
'--- Schritt 1
R1 = R / 255
'--- Schritt 2
G1 = G / 255
'--- Schritt 3
B1 = B / 255
'--- Schritt 4
If R1 > 0.0405 Then
R2 = ((R1 + 0.055) / 1.055) ^ 2.4
Else
R2 = R1 / 12.92
End If
'--- Schritt 5
If B1 > 0.0405 Then
B2 = ((B1 + 0.055) / 1.055) ^ 2.4
Else
B2 = B1 / 12.92
End If
'--- Schritt 6
If G1 > 0.0405 Then
G2 = ((G1 + 0.055) / 1.055) ^ 2.4
Else
G2 = G1 / 12.92
End If
'--- Schritt 7
R3 = R2 * 100
'--- Schritt 8
G3 = G2 * 100
'--- Schritt 9
B3 = B2 * 100
'--- Schritt 10
x = 0.6502043 * R3 + 0.1780774 * G3 + 0.1359384 * B3
'--- Schritt 11
x1 = x / xn
'--- Schritt 12
If x1 > 0.008856 Then
x2 = x1 ^ (1 / 3)
Else
x2 = 7.787 * x1 + 16 / 116
End If
TestmakroRGBnachX = x2
End Function

R1, G1, B1 sind sozusagen die Startwerte aus Sheet 1, 2, 3, Berechnung und Ausgabe Sheet 4, 5, 6.
In dieser Funktion hier x2
Es gibt noch 2 weitere Funktionen zur Berechnung von y2 und z2, die jeweils in einem anderen Sheet berechnet und ausgegeben werden.
Zur Übersicht:
Sheet 1=R-Werte (R1)
Sheet 2=G-Werte (G1)
Sheet 3=B-Werte (B1)
Sheet 4=X-Werte Funktion 1 (x2)
Sheet 5=Y-Werte Funktion 2 (y2)
Sheet 6=Z-Werte Funktion 3 (z2)
Ich dachte an etwas wie:
"Wenn Zelle leer, keine Berechnung; Wenn Zelle Zahlen enthält, starte Makro!...
Wie setzte ich das am Besten um?

Hi Marc,
deine UDF weiß nichts von einem Sheet, auch nichts von Zellen.
Sie berechnet aus vier Double-Zahlen eine fünfte, sonst nichts.
(Allenfalls ließe sich in der UDF noch der Aufrufer (Caller) ermitteln, aber das hilft hier nicht weiter.)
Übrigens: Von den Parametern ist nur der erste ByVal, die anderen nicht. Wenn du das willst, musst du
ByVal R As Double, ByVal G As Double, ByVal B As Double, ByVal xn As Double schreiben.
Die Parameter haben den Typ Double. Wenn du beim Aufruf in der Tabelle den Bezug zu einer leeren Zelle angibst,
wird 0 (die Zahl Null) and die UDF übergeben.
Die UDF kann nicht erkennen, ob der Wert aus einer Zelle kommt und ob dann in der Zelle eine 0 oder nichts steht.
Die UDF hat den Typ Double, also wird sie eine Double-Zahl als Wert liefern (oder einen Fehler).
Du kannst das alles natürlich ändern, etwa so:
TestmakroRGBnachX(ByVal R As Range, G As Range, B As Range, _
xn As Range) As Variant
Wenn du R, G, B und xn als Bereiche übergibst, kann die Fkt. prüfen, ob einer dieser Bereiche leer ist.
Und wenn du die Fkt. als Variant deklarierst, kann sie auch z. B. eine leere Zeichenkette zurückgeben.
Eine andere Möglichkeit:
Du prüfst die benötigten Zellen in der Excelformel auf "Leer" und rufst die Fkt. gar nicht erst auf,
wenn eine dieser Zellen leer ist.
Es kommt vor allem darauf an, was du erreichen und wie du mit den Ergebnissen weiterarbeiten willst.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Sub Formeln() Dim dblC11 As Double, dblC12 As Double Dim xyzErg As Double Dim h2STRICH As Double, mh2STRICH As Double, h1STRICH As Double ' TEIL 1: With Application.WorksheetFunction dblC11 = Cells(11, 3) dblC12 = Cells(12, 3) 'WENN(C12>0;GRAD(ARCTAN2(C11;C12));360+GRAD(ARCTAN2(C11;C12))) xyzErg = .Degrees(.Atan2(dblC11, dblC12)) - 360 * (dblC12 > 0) End With ' TEIL 2: ' so: If Abs(h2STRICH - h1STRICH)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

leere Zelle keine Berechnung

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread