mit folgendem Code fülle ich eine ListBox in einer UF mit den Daten aus einer Tabelle. Die letzte Zeile (Me.ListBox1.RowSource) bezieht sich nun leider auf das aktive Tabellenblatt, soll sich aber ebenfalls auf das Blatt "Audit_DB" beziehen.
Private Sub UserForm_Initialize()
Dim letztezeile As Variant
letztezeile = Sheets("Audit_DB").Cells(Rows.Count, 1).End(xlUp).Row
Me.ListBox1.Clear
Me.ListBox1.ColumnCount = -1
Me.ListBox1.RowSource = "A2:G" & letztezeile
End Sub
Habe es so versucht, funktioniert aber leider nicht:
Me.ListBox1.RowSource = Sheets("Audit_DB").Range("A2:G" & letztezeile)
So funktioniert es, ist aber hässlich gelöst:
Sheets("Audit_DB").Select
Me.ListBox1.RowSource = "A2:G" & letztezeile
Vielen Dank für Eure Hilfe & Gruss, Henner