Userform mit 3 Listboxen

Joachim · 2017-03-13T22:14:27+00:00

Hallo zusammen, ich habe ein Userform mit 3 Listboxen. In einer Listbox werden die Mitarbeiter eingetragen, in der 2. sollen Aufgaben eingetragen werden und in der 3. sollen dann Listbox 1 und 2 zusammengeführt werden. also dort soll dann stehen, welcher Mitarbeiter welche Aufgabe gerade erledigt. Wenn die Aufgabe erledigt ist, soll dies in eine Tabelle ausgelesen werden. Kann mir da jemand helfen? Das wäre suuuuuper. Vielen Dank schon mal. VG Joachim

Hallo Joachim
ich habe eine Lösung ist sie ist sehr einfach, das Makro kannst du sogar selbst aendern. Wir brauchen dafür in Tabelle2 eine Hilfsspalte, ich habe Spalte D genommen, und die Daten von C nach D kopiert. Dann kann man Spalte D löschen, die Originale bleiben in Spalte C erhalten. Was sagst du dazu?
Zwei kleine Aenderungen im Makro: - İn ListBox2 und ComboBox2 müssen die Daten gelöscht werden, und in Tabelle2 die Zelle löschen und nach oben schieben. Beim Initialisieren die Daten bitte aus Spalte D laden. Unteren Code in beiden Makros aendern. Das ist schon alles. Probier es mal aus ob es so funktioniert.
mfg Piet
'1.Makro: - Auswahl LB1 + LB2 in ListBox3 übertragen
'** ggf. Datensatz löschen
ComboBox2.RemoveItem Indx2
Worksheets("Tabelle2").Range("D2").Offset(Indx2, 0).Delete Shift:=xlUp
'ListBox Indexe löschen
ComboBox1.ListIndex = -1
ComboBox2.ListIndex = -1
'2.Makro: - UserForm Initialize aus Spalte D laden
ListBox2.List = .Range("D2:D" & lz).Value

Hallo joachim
mit dem unteren neuen Code für 'Datensatz löschen' sollte es klappen, habe es gerade getestet.
Zu weiteren Fragen, wenn ich sie sehe gehe ich darauf ein, bin aber nicht jeden Tag im Forum!
Mache im Sommer (als Rentner) für unbestimmte Zeit Pause, weil ich dann die Familie besuche.
Ansonsten ist das kein Problem.
mfg Piet

Private Sub CommandButton3_Click()
Dim AFT3 As Variant, j As Integer
'Datensatz löshen
With Worksheets("Tabelle2")
Indx3 = ListBox3.ListIndex
AFT3 = ListBox3.List(Indx3, 2)
ListBox3.RemoveItem Indx3
ListBox3.ListIndex = -1
'Wert aus ListBox3 unten anhaengen + sortieren
.Cells(lz, "D") = AFT3
'Spalte D neu sortieren
.Range("D2:D" & lz + 1).Sort Key1:=.Range("D2"), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
'UserForm neu Initialisieren
UserForm_Initialize
End With
End Sub

Forumthread: Userform mit 3 Listboxen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Userform mit 3 Listboxen

Forumthread: Userform mit 3 Listboxen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread