ActiveX Listenbox befüllen
13.12.2022 22:57:05
Bundy
durch den untenstehenden Code soll über ein ActiveX Button eine ActiceX Listenbox befüllt werden. Die eingegebenen Werte werden dann in einer separaten Arbeitsmappe "Daten" gespeichert. Wenn ich die Datei jedoch neu lade, sind die Werte in der Listbox nicht mehr zu sehen.
Wie lös ich das Problem?
Private Sub CommandButton2_Click()
Dim strText As String
Dim listBoxValues As Variant
strText = InputBox("Bitte geben Sie den Text ein, den Sie in die Listbox hinzufügen möchten:")
Me.ListBox1.AddItem strText
listBoxValues = Me.ListBox1.List
ThisWorkbook.Sheets("Daten").Range("A1:A30").Resize(UBound(listBoxValues), 1) = listBoxValues
End Sub
Anzeige