jetzt stecke ich wieder fest in meinem Userform.
Dank Eurer Hilfe habe ich jetzt geschafft, in der Listbox gefilterte Daten anzuzeigen.
Wenn man jetzt auf eine Eintragung in der Listbox klickt, sollen die Daten in Textfelder eingetragen werden.
Wenn die Daten nicht gefiltert sind, funktioniert das auch, aber nicht bei gefilterten Daten.
Hier ist mein Makro:
Private Sub ListBox1_Click()
Dim Datensatz As Integer
Datensatz = UserForm4.ListBox1.ListIndex + 2
With UserForm4
.TextBox8.Text = Worksheets("Artikel").Cells(Datensatz, 1)
.TextBox9.Text = Worksheets("Artikel").Cells(Datensatz, 2)
.ComboBox3.Text = Worksheets("Artikel").Cells(Datensatz, 3)
.TextBox16.Text = Worksheets("Artikel").Cells(Datensatz, 4)
.TextBox11.Text = Worksheets("Artikel").Cells(Datensatz, 5)
.TextBox12.Text = Worksheets("Artikel").Cells(Datensatz, 6)
.TextBox13.Text = Format(Worksheets("Artikel").Cells(Datensatz, 8), "#,##0.00 ")
.TextBox15.Text = Format(Worksheets("Artikel").Cells(Datensatz, 7), "0%")
End With
End Sub
Mit diesem Code zählt er einfach die Zeilen ab, das ist ja falsch, wenn die Tabelle gefiltert ist.
Weiß jemand, wie man das ändern könnte?
Vielen Dank und lieben Gruß,
Larissa