Makro soll Listenfeld ändern

[pingpong]

Also schonmal vielen Dank, dass du dich weiter damit beschäftigst. Hier habe ich jetzt die Datenbank angefügt.

[F3K Total]

Södele,
so sieht das Makro aus:

Code: Alles auswählen

Sub Swap_freigegeben(event)
    oControl = event.source.model
    oListbox = oControl.parent.getbyname("Listenfeld 1")
    if oControl.Text <> "" then
        oControl.commit = true
        oSelectedItems = oListbox.SelectedItems
        oSelectedItems(0) = 1
        oListbox.SelectedItems = oSelectedItems 
    else
        oControl.commit = true
        oSelectedItems = oListbox.SelectedItems
        oSelectedItems(0) = 0
        oListbox.SelectedItems = oSelectedItems 
    endif
End Sub

Anbei die geänderte Datei.
Gruß R

[pingpong]

Vielen Dank, das ist ein Superding. Das Zauberwort war wohl "commit".
Läuft!