Kann ich innerhalb eines Makros Multiplizieren???

[LSH_Dackel]

Hi Leute ich bins scho wieder.

Addieren und Subtrahieren innerhalb eines makros funzt ja prima.

Aber wie steht es mit Multiplizieren geht das der net???

Bis jetzt weis ich nur das das hier net funzt!

Code: Alles auswählen

(13*oSheet.getCellByposition(45,2).value)

Schon mal danke im vorraus

MFG Dackel

[Stephan]

vielleicht enthält die Zelle keinen numerischen Wert?

Außerdem ist Dein Beispielcode wieder reichlich knapp , so das ich nicht weiß ob das Ganze in Etwas Weiteres eingebunden ist. Als einzelne Zeile funktioniert das nicht weil der Wert nirgens zugewiesen wird.

Es geht:

Code: Alles auswählen

Sub Main
oSheet = ThisComponent.Sheets(0)
a = (13*oSheet.getCellByposition(45,2).value)
msgbox a
End Sub

oder:

Code: Alles auswählen

Sub Main
oSheet = ThisComponent.Sheets(0)
msgbox (13*oSheet.getCellByposition(45,2).value)
End Sub

Gruß
Stephan

[LSH_Dackel]

Tja in der kürze liegt die Würze. Oder das Problem.

Denn mit der msgbox funzt es aber in meinem makro net.

Code: Alles auswählen

if oSheet.getCellByposition(45,2).value = 0 then 
   r = 255: g = 255: b = 255
else
select case oSheet.getCellByposition(1,26).value
   case >= (13*oSheet.getCellByposition(45,2).value)
      r = 0: g = 174: b = 0
   case >= (10*oSheet.getCellByposition(45,2).value)
      r = 138: g = 255: b = 0
   case >= (7*oSheet.getCellByposition(45,2).value)
      r = 230: g = 255: b = 0
   case >= (4*oSheet.getCellByposition(45,2).value)
      r = 255: g = 218: b = 0
   case >= (oSheet.getCellByposition(45,2).value)
      r = 255: g = 138: b = 0   
   case >= 0
      r = 255: g = 0: b = 0 
End select 
end if
oSheet.getCellByposition(1,26).CellBackcolor = RGB(r,g,b) 

Aber was is daran falsch??

[Stephan]

Meiner Meinung nach garnichts. Ich habe den Code hier auch ausprobiert und er funktioniert.

Kriegst Du denn eine Fehlermeldung oder tut sich nur nichts?

Falls es keine Fehlermeldung gibt würde ich das Ganze erstmal im Einzelschritt-Modus testen ob der Ablauf korrekt ist. Starte das Makro hierzu mit der Schaltfläche "Step Into" und kontrolliere ob der Ablauf richtig ist, insbesondere ob in der case-Schleife korrekt verzweigt wird.

Oder Du verwendest das zu testen:

Code: Alles auswählen

if oSheet.getCellByposition(45,2).value = 0 then 
   r = 255: g = 255: b = 255 
else 
select case oSheet.getCellByposition(1,26).value 
   case >= (13*oSheet.getCellByposition(45,2).value) 
      r = 0: g = 174: b = 0 
	Msgbox "Case1"
   case >= (10*oSheet.getCellByposition(45,2).value) 
      r = 138: g = 255: b = 0 
Msgbox "Case2"
   case >= (7*oSheet.getCellByposition(45,2).value) 
      r = 230: g = 255: b = 0 
Msgbox "Case3"
   case >= (4*oSheet.getCellByposition(45,2).value) 
      r = 255: g = 218: b = 0 
Msgbox "Case4"
   case >= (oSheet.getCellByposition(45,2).value) 
      r = 255: g = 138: b = 0  
Msgbox "Case5"  
   case >= 0 
      r = 255: g = 0: b = 0 
Msgbox "Case6"
End select 
end if 
oSheet.getCellByposition(1,26).CellBackcolor = RGB(r,g,b)

Gruß
Stephan

[Stephan]

Ok, doch ich verstehe Dein Problem.

Beseitigen lässt es sich durch:

Code: Alles auswählen

if oSheet.getCellByposition(45,2).value = 0 then 
   r = 255: g = 255: b = 255 
else 
x = oSheet.getCellByposition(45,2).value
select case oSheet.getCellByposition(1,26).value 
   case >= 13*x
      r = 0: g = 174: b = 0 
   case >= 10*x 
      r = 138: g = 255: b = 0 
   case >= 7*x 
      r = 230: g = 255: b = 0 
   case >= 4*x 
      r = 255: g = 218: b = 0 
   case >= x 
      r = 255: g = 138: b = 0    
   case >= 0 
      r = 255: g = 0: b = 0 
End select 
end if 
oSheet.getCellByposition(1,26).CellBackcolor = RGB(r,g,b)

nur erklärt es das Problem deshalb nicht weil auch:

Code: Alles auswählen

if oSheet.getCellByposition(45,2).value = 0 then 
   r = 255: g = 255: b = 255 
else 
x = oSheet.getCellByposition(45,2).value
select case oSheet.getCellByposition(1,26).value 
   case >= (13*x)
      r = 0: g = 174: b = 0 
   case >= (10*oSheet.getCellByposition(45,2).value) 
      r = 138: g = 255: b = 0 
   case >= (7*oSheet.getCellByposition(45,2).value) 
      r = 230: g = 255: b = 0 
   case >= (4*oSheet.getCellByposition(45,2).value) 
      r = 255: g = 218: b = 0 
   case >= (oSheet.getCellByposition(45,2).value) 
      r = 255: g = 138: b = 0    
   case >= 0 
      r = 255: g = 0: b = 0 
End select 
end if 
oSheet.getCellByposition(1,26).CellBackcolor = RGB(r,g,b)

funktioniert. Ich habe aber keine Ahnung warum.






Gruß
Stephan

[Stephan]

Nun ja, ich habe bis jetzt alles Mögliche probiert um eine Erklärung zu finden, ich habe nun auch eine gefunden.
Zunächst einmal - dieser Code funktioniert:

Code: Alles auswählen

if oSheet.getCellByposition(45,2).value = 0 then 
   r = 255: g = 255: b = 255 
else 
select case 1*oSheet.getCellByposition(1,26).value 
   case >= (13*oSheet.getCellByposition(45,2).value) 
      r = 0: g = 174: b = 0 
   Msgbox "Case1" 
   case >= (10*oSheet.getCellByposition(45,2).value) 
      r = 138: g = 255: b = 0 
Msgbox "Case2" 
   case >= (7*oSheet.getCellByposition(45,2).value) 
      r = 230: g = 255: b = 0 
Msgbox "Case3" 
   case >= (4*oSheet.getCellByposition(45,2).value) 
      r = 255: g = 218: b = 0 
Msgbox "Case4" 
   case >= (oSheet.getCellByposition(45,2).value) 
      r = 255: g = 138: b = 0  
Msgbox "Case5"  
   case >= 0 
      r = 255: g = 0: b = 0 
Msgbox "Case6" 
End select 
end if 
oSheet.getCellByposition(1,26).CellBackcolor = RGB(r,g,b)

Die Erklärung ergibt sich quasi aus der Erläuterung zu Select-Case aus der Hilfe von OOo, dort heißt es:

Select...Case-Anweisung [Laufzeit]
Definiert einen oder mehrere Befehlsblöcke, die in Abhängigkeit von dem Ergebnis eines bestimmten Ausdrucks stehen.
Syntax:
Select Case Bedingung Case Ausdruck Anweisungsblock[Case Ausdruck2 Anweisungsblock][Case Else] Anweisungsblock End Select
Parameter:
Bedingung: Ein beliebiger Ausdruck, der steuert, ob der auf den jeweiligen Case-Zweig folgende Anweisungsblock ausgeführt wird.
Ausdruck: Ein beliebiger Ausdruck, der mit dem Typ des Ausdrucks "Bedingung" kompatibel ist. Der auf den jeweiligen Case-Zweig folgende Anweisungsblock wird ausgeführt, wenn der Wert von Bedingung gleich dem Wert von Ausdruck ist.

somit ist es augenscheinlich so das der Ausdruck:

Code: Alles auswählen

oSheet.getCellByposition(1,26).value

zum Ausdruck:

Code: Alles auswählen

13*oSheet.getCellByposition(45,2).value

nicht "kompatibel" ist, der Ausdruck:

Code: Alles auswählen

1*oSheet.getCellByposition(1,26).value

hingegen schon.


Nun kannst Du sicherlich so gut wie ich sehen, das man wenn man sich die Ausdrücke ansieht versteht was "kompatibel" wohl meint, mit einer Erklärung hatte ich aber zunächst Schwierigkeiten, aber es gibt eine:

Code: Alles auswählen

oSheet.getCellByposition(1,26).value 

ist vom Typ Double, hingegen ist:

Code: Alles auswählen

13

vom Typ Integer, und:

Code: Alles auswählen

1*oSheet.getCellByposition(1,26).value 

ebenfalls vom Typ Double, wobei ich mir einzig noch nicht im Klaren bin warum <Double>*<Integer>=<Double> ist.



Gruß
Stephan

[Mihilist]

wobei ich mir einzig noch nicht im Klaren bin warum <Double>*<Integer>=<Double> ist.

Na weil du sonst Informationen in Form von Nachkommastellen verlierst
int(3) * double(5,1) = double(15,3) <> int(15)

[Stephan]

Na weil du sonst Informationen in Form von Nachkommastellen verlierst

Stimmt - das leuchtet ein.

Danke für den Hinweis.


Gruß
Stephan