Hallo,

das Problem was ich aktuell habe:

Ich kann die Listbox befüllen. Aber die Daten werden nach Neustart der Datei in der Listbox nicht mehr angezeigt.

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

Weiß jemand Rat?

Danke und Gruß