ich verwende folgenden Code um mit einem selektierten Item in ner Listbox verschiedene Textboxen zu füllen.
Private Sub ListBox1_Click()
Dim Matrix As Range
Set Matrix = Sheets("Schichtgruppe A").Range("A5:G" & Range("G1000").End(xlUp).Row)
With ListBox1
.MultiSelect = fmMultiSelectSingle
If .ListIndex >= 0 Then
'Regel
TextBox1.Text = Application.VLookup(ListBox1.Text, Matrix, 7, False)
'Rolle
TextBox2.Value = Application.VLookup(ListBox1.Value, Matrix, 4, False)
'Datum des Wunsches
TextBox3.Value = Application.VLookup(ListBox1.Value, Matrix, 3, False)
'Dienstgruppe
TextBox4.Value = Application.VLookup(ListBox1.Value, Matrix, 2, False)
'Wochentag der Wunsches
TextBox5.Value = Format(TextBox3.Value, "DDD")
End If
End With
End Sub
Zur Erklärkung: ich hab in den Spalte A bis G sämtliche Informationen. In der Spalte A stehen Namen, genau wie in der Listbox. Wenn ich nun in der Listbox ein Name ausgewählt wird, sollten die Textboxen weitere Infos ausgeben.
Leider tut das nicht so... Was hab ich falsch gemacht?
Die Sheetnamen sind richtig. Ich hab den Code sowohl in der Userform als auch in einem Modul mit dem Call-Aufruf.
Wär euch echt dankbar!
Gruß
A.