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

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: GELÖST Wenn Zelle kleiner, dann Code 1, sonst Code 2

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

von achimgr » So, 06.07.2014 19:04

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.

Re: Wenn Zelle kleiner, dann Code 1, sonst Code 2

von lorbass » Do, 03.07.2014 16:27

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: Wenn Zelle kleiner, dann Code 1, sonst Code 2

von TrueColor » Do, 03.07.2014 16:26

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

von clag » Do, 03.07.2014 16:25

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

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

von achimgr » Do, 03.07.2014 15:40

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

Nach oben