Mit nachstehendem Code möchte ich aus der Tabelle "Offene Posten" Einträge in eine Listbox (lstOffenePosten) einlesen.
Private Sub cmdOPV_Click() Dim Eintrag As Integer Sheets("Offene Posten").Activate Eintrag = ActiveSheet.UsedRange.Rows.Count With lstOffenePosten .ColumnCount = 2 .ColumnHeads = True .RowSource = "Offene Posten!A2:B" & Eintrag .ColumnWidths = "8cm;4cm" End With End Sub
Leider bricht die Prozedur immer mit folgender Fehlermeldung ab:
Laufzeitfehler 380
Eigenschaft RowSource konnte nicht gesetzt werden. Ungültiger Eigenschaftenwert.
Hat jemand eine Idee warum VBA das nicht will ?
Gruß aus Mainhatten
Rainer