GELÖST Wenn Zelle kleiner, dann Code 1, sonst Code 2

[achimgr]

Hallo,

ich möchte in einem Makro die if then Prüfung integrieren:
Wenn (auf diesem Tabellenblatt) da Feld D51 <100
dann führe Makro "1" und danach Makro "2" aus,
sonst führe Makro "2" aus.

Wie lautet der Befehl. Ich finde keine Lösung.

Danke

[clag]

Hallo achimgr,

Code: Alles auswählen

Sub check
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(3,50)
myvalue = mycell.value

if myvalue < 100 then
print "WERT D51 ist kleiner 100"
print "code eins könnte jetzte laufen"
'code 1 ...

else
print " WERT D51 ist größer 100 "
end if
print " code zwei läuft immer "
'code2 ...

End Sub

versuch es einmal damit

[TrueColor]

Ich würde den Zellwert einer Variable zuweisen und die Prüfung mit der Variable durchführen

Code: Alles auswählen

[...]
nMyVar = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("A1")

If nMyVar < 100 Then
  Call Macro1
Else
  Call Macro2
EndIf
 

Edit: Oh, zuu langsam...

[lorbass]

Ich finde keine Lösung.

Wo hast du denn gesucht?

Gleich im ersten sticky Post finden sich Informationen zur StarBasic-Programmierung, die Stephan zusammengestellt hat.

Die Antwort auf deine Frage findest du auch schon in der Programmhilfe (→ F1).

Gruß
lorbass

[achimgr]

Danke claq, das hat funktioniert.
Danke TrueColor, das hat nicht geklappt. (habe AB "nMyVar..." kopiert und "A1" durch "D51" ersetzt, und die beiden Macronamen ersetzt und end sub ergänzt)
Danke lorbass, das ist mir leider alles zu verwirrend.