(Gelöst) Bekomme Fehler bei IF und Esle

[Atwist]

Ich bekomme einen Fehler "BASIC-syntaxiserror ELSE/Endif without if" aber ich benutze doch eine "if" bin ich jetzt blöd oder Lo

Code: Alles auswählen

Sub WeerGaveSchulden
   Dim Button As Object
   Doc = ThisComponent
   Sheets = Doc.Sheets()
   Sheets.getByName("Dashboard")
   with 
   Sheet.DrawPage.Forms.getByIndex(0).getByName("ShowSchulden")
   If .State = 1 then Sheet.getByName("Schulden").visible = True
   Else
   Sheet.getByName("Schulden").visible = False
   Endif
   end with
End sub

[craig]

Hallo,

dieser Fehler wird immer wieder gemacht!

EINZEILIGES WENN/DANN
Hier wird kein END IF benötigt.
If a=b then x=100

MEHRZEILIGES WENN/DANN bzw. WENN/DANN/SONST
IF .... THEN
Anweisung 1
Else
Anweisung 2
END IF

Daraus resultiert:

Code: Alles auswählen

SUB WeerGaveSchulden
DIM Button As Object
	Doc = ThisComponent
	Sheets = Doc.Sheets()
	Sheets.getByName("Dashboard")

   WITH Sheet.DrawPage.Forms.getByIndex(0).getByName("ShowSchulden")

		IF .State = 1 THEN
			Sheet.getByName("Schulden").visible = True
		ELSE
			Sheet.getByName("Schulden").visible = False
		END IF

	END WITH
END SUB

Ausserdem:

• WITH "mit WAS?"
  Muss einzeilig geschrieben sein!
• Schreibfehler Endif --> END IF

Ich weiß, viele schreiben den Code "quick'n dirty". Aber gerade wenn man sich nicht perfekt auskennt,
ist es sehr hilfreich den Code sauber einzurücken. Siehe mein Beispiel im Codeblock.
Man behält besser den Überblick und erleichtert die Fehlersuche ungemein.

Gruß

Craig

[karolus]

Hallo

@Craig: Und warum `dim`st du Button wenn das Ding im weiteren eh nicht benutzt wird.
Und was ist mit `sheet` wo kommt das dann her?

Unter der Annahme das der Button auf den der Benutzer klickt identisch ist mit dem Button dessen `State` hier abgefragt wird:

Code: Alles auswählen

Sub tooglesheet(event)
    button = event.Source.Model
    doc = button.Parent.Parent.Parent
    schulden = doc.Sheets.getByName("Schulden")
    schulden.IsVisible = IIF(button.State, True, False)
End Sub

Karolus

[craig]

Hallo Karolus,

@Craig: Und warum `dim`st du Button wenn das Ding im weiteren eh nicht benutzt wird.

Ich habe lediglich die offensichtlichen Fehler bezüglich der IF-Anweisung aus
dem Code entfernt und den Rest 1:1 übernommen, da dies nicht Bestandteil der Frage ist.

Mit Deiner professionellen und intelligenten Art zu programmieren kann ich eh nicht mithalten.
Ich freue mich immer wenn ich etwas von Dir lernen kann. Danke!

Gruß

Craig

[Atwist]

Leider muss ich mitteilen dass beide Lösungen nicht bei mir Funktionieren.

@Craig bei deine Lösung bekomme ich eine "Basic-Runtime-Error Objectvariable nicht eingestellt"

@Korolus bei deine Lösung bekomme ich eine "Basic-Runtime-Error Das Argument ist nicht optional"

[craig]

Hallo,

@Craig bei deine Lösung bekomme ich eine "Basic-Runtime-Error Objectvariable nicht eingestellt"

In welcher Zeile wird der Fehler angezeigt?

In der angezeigten Zeile, steht ggf. ein Name für z.B. ein Sheet, dass nicht existiert oder anders geschrieben wird.
Kann auch der Button-Name sein auf den Du verweist,

Gruß

Craig

[Atwist]

IF .State = 1 THEN

[craig]

Hallo,

und so:

Code: Alles auswählen

SUB WeerGaveSchulden
DIM Button As Object
   Doc = ThisComponent
   Sheets = Doc.Sheets()
   Sheets.getByName("Dashboard")

   Button=Sheet.DrawPage.Forms.getByIndex(0).getByName("ShowSchulden")

      IF Button.State = 1 THEN
         Sheet.getByName("Schulden").visible = True
      ELSE
         Sheet.getByName("Schulden").visible = False
      END IF

END SUB

Gruß

Craig

[Atwist]

Leider Nein.

Error.png (52.7 KiB) 4030 mal betrachtet

[karolus]

@Korolus bei deine Lösung bekomme ich eine "Basic-Runtime-Error Das Argument ist nicht optional"

Natürlich bekommst du den Fehler, du darfst das so nicht aus der Basic-IDE aufrufen, du musst das schon mit einem Ereignis der Schaltfläche verknüpft, aufrufen.

@craig: solange da nirgends ein `Sheet` definiert wird kann das nicht laufen.