|
Hi zusammen,
ich habe eine Userform, über die Stammdaten in eine Datenbank eingetragen und auch später bearbeitet werden können.
Darin enthalten sind Listboxen, die je nach Auswahl weitere Listboxen befüllen.
Die getroffene Auswahl der Listboxen wird beim Beenden der Userform in die Datenbank gespeichert.
Das klappt grundsätzlich gut.
Beim Bearbeiten der Daten soll die vorherige Auswahl bereits beim Öffnen der Userform angezeigt werden.
Dazu habe ich folgenden Code (Beispiel für eine übergeordnete Listbox)
With ListBox_Jugendamt
For i = 0 To .ListCount - 1
If .List(i) = wks.Cells(SelectZeile, 11) Then
.Selected(i) = True
End If
Next
End With
Das klappt grundsätzlich auch, wenn ich die Userform öffne sind alle Daten korrekt ausgewählt.
Beim Speichern allerdings stellt sich heraus, dass diese Auswahl offensichtlich nur angezeigt wird, aber nicht korrekt ausgewählt (wie angeklickt), denn die Daten werden dann nicht gespeichert, die entsprechende Zelle bleibt leer.
Speichern erledige ich ganz simpel mit:
With Worksheets("Datenbank_Jugendliche")
.Cells(SelectZeile, 11) = ListBox_Jugendamt
End With
Hat jemand ne Idee woran das liegen könnte, dass die Auswahl zwar angezeigt, aber nicht gespeichert wird?
Grüße
Jonas
|