von Ouagadougou » Do, 08.02.2018 11:39
Hallo Community,
ich bin gerade dabei ein Makro zu schreiben, dass eine bestimmte Aktion durchführt, wenn eine Bedingung erfüllt ist. Also ein klassischer Fall für IF, THEN, ELSE.
Die Durchfühung der Aktion für sich funktioniert wie gewünscht, ich habe Probleme mit der IF-Bedingung. Es öffnet sich beim Durchführen des Makros immer folgender Dialog: "BASIC-Syntaxfehler. Erwartet then."
Hier mein Code:
Code: Alles auswählen
Sub ZellenSprung
myDoc = thisComponent
myView = myDoc.CurrentController
mysheet = myDoc.sheets(1)
ZelleJan = mysheet.getCellByPosition(0,1)
KontoJan = mysheet.getCellByPosition(17,45)
KontoFeb = mysheet.getCellByPosition(17,92)
KontoMar = mysheet.getCellByPosition(17,139)
IF KontoJan <>"+CHR$(34)+CHR$(34)+" and KontoFeb ="+CHR$(34)+CHR$(34)+" and KontoMar ="+CHR$(34)+CHR$(34)+"
THEN myView.Select(ZelleJan)
myDoc.getCurrentController().setFirstVisibleRow(1)
End IF
End Sub
Ich weiß nicht mehr weiter und hoffe von euch neue Impulse zu bekommen.
Liebe Grüße,
Ouagadougou
Hallo Community,
ich bin gerade dabei ein Makro zu schreiben, dass eine bestimmte Aktion durchführt, wenn eine Bedingung erfüllt ist. Also ein klassischer Fall für IF, THEN, ELSE.
Die Durchfühung der Aktion für sich funktioniert wie gewünscht, ich habe Probleme mit der IF-Bedingung. Es öffnet sich beim Durchführen des Makros immer folgender Dialog: "BASIC-Syntaxfehler. Erwartet then."
Hier mein Code:
[code]Sub ZellenSprung
myDoc = thisComponent
myView = myDoc.CurrentController
mysheet = myDoc.sheets(1)
ZelleJan = mysheet.getCellByPosition(0,1)
KontoJan = mysheet.getCellByPosition(17,45)
KontoFeb = mysheet.getCellByPosition(17,92)
KontoMar = mysheet.getCellByPosition(17,139)
IF KontoJan <>"+CHR$(34)+CHR$(34)+" and KontoFeb ="+CHR$(34)+CHR$(34)+" and KontoMar ="+CHR$(34)+CHR$(34)+"
THEN myView.Select(ZelleJan)
myDoc.getCurrentController().setFirstVisibleRow(1)
End IF
End Sub[/code]
Ich weiß nicht mehr weiter und hoffe von euch neue Impulse zu bekommen.
Liebe Grüße,
Ouagadougou