2 Listboxen füllen
08.11.2013 18:42:13
Albert
in Zusammenarbeit mit hilfsbereiten Leuten hab ich eine Datei vor mir, die den Schichtplan organisiert. Nun hab ich noch ein anderes Problem.
Eine Listbox zeigt mir Namen, die nach Kriterien gesucht wurden. Jetzt wähle ich einen Namen aus und in einer zweiten Listbox sollten weitere Kollegen gezeigt werden, die am gleichen Tag mitarbeiten.
Wie muss dieser Code umgestellt werden, wenn in Spalte A ein "Zielname" steht, in Spalte B ein Schichtbuchstabe und in Zeile 5 das Datum.
Private Sub ListBox1_Change()
With ZSVerwaltung.ListBox1
.MultiSelect = fmMultiSelectSingle
If .ListIndex >= 0 Then
ZSVerwaltung.TextBox1.Text = Application.VLookup(ListBox1.Value, Sheets("Schichtgruppe") _
.Range("A14:I" & Range("A1000").End(xlUp).Row), 7, False) 'Regelschichtgruppe
ZSVerwaltung.TextBox2.Text = Application.VLookup(ListBox1.Value, Sheets("Schichtgruppe") _
.Range("A14:I" & Range("A1000").End(xlUp).Row), 4, False) 'Rolle
ZSVerwaltung.TextBox3.Text = Application.VLookup(ListBox1.Value, Sheets("Schichtgruppe") _
.Range("A14:I" & Range("A1000").End(xlUp).Row), 3, False) 'Wunschdatum
ZSVerwaltung.TextBox4.Text = Application.VLookup(ListBox1.Value, Sheets("Schichtgruppe") _
.Range("A14:I" & Range("A1000").End(xlUp).Row), 2, False) 'Dienstgruppe
ZSVerwaltung.TextBox5.Value = Format(ZSVerwaltung.TextBox3.Value, "DDD") ' _
Wochentag
End If
End With
With ZSVerwaltung.ListBox2
If .ListIndex >= 0 Then
End If
End With
End Sub
Der Listbox1-Code passt so wie er ist. Nur für die zweite Listbox brauch ich eure Hilfe. Kann man Listbox-Einträge auch aus verschiedenen Werten aus verschiedenen Sheets zusammenfügen?
Anbei hänge ich die Datei noch mit an.
https://www.herber.de/bbs/user/88000.xls
Danke und Gruß
A.