ich suche Unterstützung für das einlesen der Daten in eine Listbox1 auf einer Userform.
Die Daten stehen in Tabelle "Typen" Spalte B und C ab Zeile 4.
Länge der Daten kann unterschiedlich sein also mal bis Zeile 150 oder auch bis 200.
mfg walter k
with sheets("Typen")
Listbox1.List=.Range(.cells(4,2),.cells(4,2).end(xldown)).resize(,2).Value
end with
GrußPrivate Sub CommandButton25_Click()
With Sheets("Typen")
ListBox1.List = .Range(.Cells(4, 2), .Cells(4, 2).End(xlDown)).Resize(, 2).Value
End With
End Sub
Hatte die 3Zeilen in die UF eingesetzt, da werden die Daten nicht eingelesen.Private Sub CommandButton23_Click()
Dim FundZeile As Long ' die Zeile die gesucht/angeklickt wurde
TextBox1.Value = ListBox1.List(Me.ListBox1.ListIndex, 0)
TextBox2.Value = ListBox1.List(Me.ListBox1.ListIndex, 1)
FundZeile = ListBox1.List(Me.ListBox1.ListIndex, 2)
End Sub
mfg walter k