Listbox
02.05.2020 13:21:49
Achim
Wer kann mal schauen?
Ich habe eine Userform3. In der Userform befindet sich meine Listbox4. Die Daten werden aus der Tabelle Fahrstunden eingelesen.
With UserForm3.ListBox4
.ColumnCount = 15 'Anzahl der Spalten
.ColumnHeads = True 'Kopfzeile festgelegt
.RowSource = "Fahrstunden!A4:O627" 'Daten
.ColumnWidths = "2cm;2cm;4cm;2cm;2cm;2cm;2cm;2cm;2cm;2cm;2cm;2cm;6cm;2cm;2cm" 'Spaltenbreiten der einzelnen Zeilen
.ListIndex = .ListCount - 1 'letzte belegte Zelle
End With
Der auszulesende Bereich ist fest definiert. Siehe mein Code. Das Problem ist es kommen weitere Datensätze hinzu. Nun möchte ich den auszulesenden Bereich automatisch anpassen lassen.
Dazu habe ich bei Herber etwas gefunden und weiß allerdings nicht wie ich diesen Code auf meine Bedürfnisse anpassen kann. Wer blickt da durch?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim iRow As Integer
If Target.Column 1 Or Target.Row = 1 Then Exit Sub
iRow = Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.ListFillRange = Range("A2:A" & iRow).Address
End Sub