Hallo zusammen
Ich habe mir VBA in den letzten Tagen grösstenteils selber erarbeitet, bin deshalb noch kein Experte und der von mir erstellte Text ist wohl nicht immer perfekt...
Ich erstelle derzeit ein Erfassungstool für Beratungen einer Jugendberatungsinstitution. Für das Einfügen der Daten habe ich ein ziemlich umfangreiches UserForm erstellt.
Nun wünscht mein Auftraggeber, dass man die Inhalte der Liste bei Auslösen eines Makros wieder zurück in das Userform füllt. Das ist mir soweit auch gelungen. Bei der ListBox mit Multi Choise hab ich das aber noch nicht geschafft.
Beim Einfügen füllt es sämtliche angekreuzte Boxen getrennt von einem ";" in dieselbe Zelle. Dazu hier den Code:
For i = 0 To Me.Beratungsform2.ListCount - 1
If Me.Beratungsform2.Selected(i) Then
Cells(z, 9).Value = Cells(z, 9).Value + Me.Beratungsform2.List(i) + ";" + " "
End If
Next i
Und für die Inhalte der ListBox:
With Me.Beratungsform2
.AddItem "Fachberatung"
.AddItem "Mail- / SMS-Beratung"
.AddItem "Telefonberatung"
.AddItem "Kinder- / Jugendberatung"
.AddItem "Familienberatung"
.AddItem "Gruppenberatung"
End With
Wie schaffe ich es, diese Funktion wieder so Rückgängig zu machen, dass es mir die Felder anhäkelt die in der entsprechenden Zelle geschrieben stehen? (Menn z.B. "Fachberatung; Telefonberatung;" in der Zelle steht soll es ListIndex 0 und ListIndex 3 aktivieren.)
Schon einmal ein grosses Dankeschön für eure Hilfe!
Liebe Grüsse
Martin
|