Thema Datum  Von Nutzer Rating
Antwort
Rot ListBox je nach Inhalt der Zelle aktivieren
 26.03.2014 15:16:29 Martin
Solved
26.03.2014 22:29:16 Gast83172
Solved
28.03.2014 13:34:00 Martin
NotSolved

Ansicht des Beitrags:
Von:
Martin		 Datum:
26.03.2014 15:16:29		 Views:
1318		 Rating:
     
Antwort:
 Nein
Thema:
ListBox je nach Inhalt der Zelle aktivieren

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot ListBox je nach Inhalt der Zelle aktivieren
 26.03.2014 15:16:29 Martin
Solved
26.03.2014 22:29:16 Gast83172
Solved
28.03.2014 13:34:00 Martin
NotSolved