OpenOffice.info

Ah, danke, jetzt fkt.

Private aStatusFilter(1 to 8) as Boolean 'ausserhalb deklarieren

Sub Main
        aStatusFilter(1) = 1 'Innerhalb einer Sub Werte zweisen
        aStatusFilter(2) = 1
...

Hallo

Deklarieren != Wert zuweisen

[code]Private aStatusFilter(1 to 8) as Boolean 'ausserhalb deklarieren

Sub Main
aStatusFilter(1) = 1 'Innerhalb einer Sub Werte zweisen
aStatusFilter(2) = 1
...
[/code]

Karo

Private aStatusFilter(1 to 8) as Boolean

REM  *****  BASIC  *****

' -------------------------
'   öffentliche Variablen
' -------------------------
' werden im Kopfbereich deklariert
'
' Gültigkeit globaler Variablen:
' GLOBAL: innerhalb der gesamten Staroffice-Sitzung in allen geladenen Bibliothken, Modulen, Prozeduren und Funktionen
' PUBLIC: innerhalb aller Module einer Bibliothek
' PRIVATE: innerhalb eines Moduls, diese Variablennamen können daher auch in mehreren Modulen parallel verwendet werden
'
Private aStatusFilter(1 to 8) as Boolean
        aStatusFilter(1) = 1
        aStatusFilter(2) = 1
        aStatusFilter(3) = 1
        aStatusFilter(4) = 1
        aStatusFilter(5) = 1
        aStatusFilter(6) = 1
        aStatusFilter(7) = 1
        aStatusFilter(8) = 1

[hier geht's dann mit den Subs weiter]

Hallo,

wo werden PRIVATE Variablen deklariert? Ich verstehe das so, dass diese ja auch (innerhalb der Grezen des Moduls) öffentlich sind und von daher im Kopfbereich deklariert werden müssen. Jedoch bekomme ich in der Zeile

[code]Private aStatusFilter(1 to 8) as Boolean[/code]

immer die Fehlermeldung

[quote]BASIC-Syntaxfehler.
Erwartet: Sub[/quote]

Was mache ich falsch?

Der Anfang meines Moduls:

[code]REM ***** BASIC *****

' -------------------------
' öffentliche Variablen
' -------------------------
' werden im Kopfbereich deklariert
'
' Gültigkeit globaler Variablen:
' GLOBAL: innerhalb der gesamten Staroffice-Sitzung in allen geladenen Bibliothken, Modulen, Prozeduren und Funktionen
' PUBLIC: innerhalb aller Module einer Bibliothek
' PRIVATE: innerhalb eines Moduls, diese Variablennamen können daher auch in mehreren Modulen parallel verwendet werden
'
Private aStatusFilter(1 to 8) as Boolean
aStatusFilter(1) = 1
aStatusFilter(2) = 1
aStatusFilter(3) = 1
aStatusFilter(4) = 1
aStatusFilter(5) = 1
aStatusFilter(6) = 1
aStatusFilter(7) = 1
aStatusFilter(8) = 1

[hier geht's dann mit den Subs weiter]
[/code]

Vielen Dank!