OpenOffice.info

Hallo,
[quote="Karolus"][quote]Edit: Sollte im OP noch ergänzen, dass ich die Fehlermeldung nur im Macroeditor erhalte, nicht jedoch, wenn ich den Editor nicht offen habe.
[/quote]
Wo soll denn das Argument 'Event' herkommen wenn du sowas aus der Basic-Ide startest ??
[/quote]
Hm... stimmt. Da gibt es kein Event, also kann auch keins gefunden werden.

Ich glaube, damit ist das Problem gelöst. Vielen Dank euch beiden!

Grüße
TrueColor

Hallo,

oh True/False falsch gesetzt, das war mir nicht aufgefallen. Umgedreht fkt. das jetzt. Ist mir total durch die Lappen gegangen. Danke!

Kennst du einen Grund für das im Edit meines letzten Postings beschriebene Verhalten?

Grüße
TrueColor

Hallo
[quote]Edit: Sollte im OP noch ergänzen, dass ich die Fehlermeldung nur im Macroeditor erhalte, nicht jedoch, wenn ich den Editor nicht offen habe.
[/quote]

Wo soll denn das Argument 'Event' herkommen wenn du sowas aus der Basic-Ide startest ??

Karolus

Hi,
vielleicht probierst du [color=#0040FF][b]meinen[/b][/color] Code mal, der funktioniert, ich habe noch true und false umgedreht.
R

Hallo,

das mache ich ja mit dem Knopf "Status filtern"/Sub "Filtern_Ausfuehren", nachdem ich alle eingestellt habe. Ich könnte es auch dort mit rein nehmen, das stimmt. Muss ich mir mal überlegen.

Aber das ist nicht das Problem.

Edit: Sollte im OP noch ergänzen, dass ich die Fehlermeldung nur im Macroeditor erhalte, nicht jedoch, wenn ich den Editor nicht offen habe.

Grüße,
TrueColor

Sub StatusFilter_einzel(Event)

    Dim oChkBox as Object
    Dim i as Integer

    oChkBox = Event.Source.Model

    Select Case oChkBox.State
      Case 0
        i = right(oChkBox.Name,1)
        aStatusFilter(i) = false
      Case 1
        i = right(oChkBox.Name,1)
        aStatusFilter(i) = true
    End Select
    Filtern'<----------AUFRUF von Filtern
End Sub

Hi,
natürlich solltest du das Filtern auch ausführen, oder?
[code]Sub StatusFilter_einzel(Event)

Dim oChkBox as Object
Dim i as Integer

oChkBox = Event.Source.Model

Select Case oChkBox.State
Case 0
i = right(oChkBox.Name,1)
aStatusFilter(i) = false
Case 1
i = right(oChkBox.Name,1)
aStatusFilter(i) = true
End Select
Filtern'<----------AUFRUF von Filtern
End Sub[/code]

Gruß R

Hallo,

dies ist die Fortsetzung (habe mal wieder Zeit gefunden) von

[url=http://de.openoffice.info/viewtopic.php?f=18&t=54478][gelöst] Checkbox getByName()[/url]

Nachdem ich nun die Filterung umgesetzt hatte, musste ich feststellen, dass da aber nichts passiert. Nach einigem Herumprobieren bin ich zu dem Schluss gekommen, dass die Statusänderungen der Checkboxen, die im Modul StatusFilter, Sub StatusFilter_einzel, passiert, nicht ins Array übertragen werden.

In der Zeile

oChkBox = Event.Source.Model

erhalte ich einen Laufzeitfehler "Argument ist nicht optional".

XRay auf Event.Source.Model bringt mir "Objektvariable nicht belegt".

Ein ähnliches Problem habe ich im Sub "StatusFilter_Alle", in der Zeile "oButton = Event.Source.Model", jedoch wird hier der Status korrekt übertragen. Hier erhalte ich aber in wenigen, nicht reproduzierbaren Fällen keine Fehlermeldung, das Macro läuft klaglos durch.

Ich bin bisschen ratlos. Was mache ich hier falsch?

Vielen Dank!

Grüße,
TrueColor