Seite 1 von 1
GELÖST Wenn Zelle kleiner, dann Code 1, sonst Code 2
Verfasst: Do, 03.07.2014 15:40
von 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
Re: Wenn Zelle kleiner, dann Code 1, sonst Code 2
Verfasst: Do, 03.07.2014 16:25
von 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
Re: Wenn Zelle kleiner, dann Code 1, sonst Code 2
Verfasst: Do, 03.07.2014 16:26
von 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...
Re: Wenn Zelle kleiner, dann Code 1, sonst Code 2
Verfasst: Do, 03.07.2014 16:27
von lorbass
achimgr hat geschrieben: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
Re: GELÖST Wenn Zelle kleiner, dann Code 1, sonst Code 2
Verfasst: So, 06.07.2014 19:04
von 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.