[gelöst] IF...THEN in Makro implementieren
Verfasst: 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:
Ich weiß nicht mehr weiter und hoffe von euch neue Impulse zu bekommen.
Liebe Grüße,
Ouagadougou
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
Liebe Grüße,
Ouagadougou