Hallo Forum,
ich rufe aus einer Userform mit einer Commandbutton eine weitere Userform auf. In der Userform (die aufgerufen wird soll eine Listbox angezeigt werden. ersten aufruf ist die Listbox leer, ich schließe die Userform und rufe sie erneut auf, es wird das angezeigt was ich möchte was fehlt in der Procedur?
der Aufruf erfolgt so:
Private Sub CommandButton1_Click()
Dim i As Integer
UserForm5.Show
Sheets("Tabelle2").Activate
i = ActiveSheet.UsedRange.Rows.Count
With UserForm5.ListBox1
.ColumnCount = 3
.ColumnHeads = True
.RowSource = "Tabelle2!c2:e" & i
.ColumnWidths = "2cm;4cm;2cm"
End With