Bezug auf anderes Tabellenblatt
07.04.2016 21:09:02
Henner
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
Me.ListBox1.RowSource = Sheets("Audit_DB").Range("A2:G" & letztezeile)
Sheets("Audit_DB").Select
Me.ListBox1.RowSource = "A2:G" & letztezeile
Vielen Dank für Eure Hilfe & Gruss, Henner
Anzeige