Mehrfachauswahl bei listboxen mit Zelleinträgen

Hallo in die Community,
ich habe eine Frage bezüglich eines VBA Codes. Ich selbst bin erst in den Anfängen, was die VBA Codierung angeht, daher wollte ich fragen, ob jemand in diesem Forum weiß, wie ich meine Idee umsetzen könnte.
Ich arbeite derzeitig an einem Formular zur Fehlerbeschreibung. Ich habe in dem Formular mehrere listboxen integriert, die eine Mehrfachauswahl der vorgegebenen Elemente möglich machen.
Userbild

Der Nutzer ist dann in der Lage, eine Auswahl zu treffen und diese über einen commandbutton ins Tabellenblatt zu übertragen. Wichtig ist hierbei jedoch, dass die ausgewählten Elemente alle in eine Zelle kommen.
Userbild

Nun habe ich noch die Möglichkeit integriert, dass der Benutzer bestehende Einträge über einen weiteren commandbutton bearbeiten kann. Durch eine combobox kann der jeweilige Datensatz ausgewählt werden, welcher dann aus dem Exceltabellenblatt wieder in die userform übertragen werden soll.
Nun zu meiner Frage:
Wie programmiere ich, dass Excel Einträge in einer listbox entsprechend der Inhalte aus dem Tabellenblatt markiert werden, sodass ich diese nicht jedes Mal aufs neue auswählen muss.
Sozusagen von:
Userbild

LG Ivi und vielen Dank im Voraus.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
vielen vielen Dank für deine schnelle Antwort. Ich habe jedoch weiterhin 2 Probleme.
Erstes Problem:
In der listbox wird immer nur einer der Einträge markiert. Das bedeutet, wenn ich bspw. in der Zelle "Lieferanten, Unternehmen und Staat" hatte, er nur "Unternehmen" markiert, nicht aber "Lieferanten" und "Staat". Woran könnte das liegen?
Zweites Problem:
Der Zellbezug von U5 richet sich ja je nach Auswahl des jeweiligen Datensatzes über die angesprochene Combobox. Demnach muss der Zellbezug je nach Auswahl variabel sein. Wie bekomme ich das hin?
Code
Ich habe mal Teile des Codes für die Speicherung und die Bearbeitung beigefügt, vllt hilft das ja.
Speichern Commandbutton (Teil)


Dim nqt As Long, stqt As String
With ListBox10
For nqt = .ListCount - 1 To 0 Step -1
If .Selected(nqt) = True Then stqt = .List(nqt, 0) & IIf(stqt = "", "", vbCrLf) & stqt
Next
Columns("A:Z").EntireColumn.AutoFit
End With
Sheets(3).Cells(Zeile, 21) = stqt

Bearbeiten Commandbutton (Teil)


Private Sub CommandButton3_Click()
If ComboBox1.ListIndex >= 0 Then
kim = Userform4.ComboBox1.ListIndex + 5
With UserForm1.ListBox10
For i = 0 To .ListCount - 1
.Selected(i) = (InStr(vbLf & Range("U5").Value & vbLf, vbLf & .List(i) & vbLf) > 0)
Next
End With
UserForm1.TextBox21 = Sheets(1).Cells(kim, 13)
Unload Me
UserForm1.Show
Else
MsgBox "Fehler-/Szenarionummer nicht vorhanden!", vbExclamation
End If
End Sub

Ich hoffe man kann meine Schritte nachvollziehen.
LG Ivi und danke im Voraus.

Dim AAA As Long, BBB As String With Seite2.AuswahlFunktionsfehler For AAA = .ListCount - 1 To 0 Step -1 If .Selected(AAA) = True Then BBB = .List(AAA, 0) & IIf(BBB = "", "", vbLf) & BBB Next Columns("A:Z").EntireColumn.AutoFit End With Sheets(2).Cells(kim, 9) = BBB

Beliebteste Forumthreads (12 Monate)

Mehrfachauswahl bei listboxen mit Zelleinträgen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrfachauswahl bei listboxen mit Zelleinträgen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread