Nachdem ich in meiner Userform1 eine suchabfrage durchführe sollte das Ergebniss aus Tabelle Gefunden
in die Listbox1 Was auch Passiert. aber leider zeigt er mir immer das vorige suchergebniss an.
wenn ich die userform1 jetzt beende und neu starte dann wird die letzt suche angezeigt.
Frage: Wie kann ich meine Listbox1 aktualisieren Während die Userform1 geöffnet bleibt?
'Tabelle FilmDB Spalte A und B und H in Listbox1 anzeigen
Private Sub UserForm_Initialize()
Dim Zeile As Long, LetzteZeile As Long
LetzteZeile = Cells(Rows.Count, 3).End(xlUp).Row
With ListBox1
For Zeile = 1 To LetzteZeile
.ColumnCount = 3 '--Listbox 3spaltig
.AddItem Worksheets("Gefunden").Cells(Zeile, 1) '--SpaltA
.List(.ListCount - 1, 1) = Worksheets("Gefunden").Cells(Zeile, 2) '--Spalte B
.List(.ListCount - 1, 2) = Worksheets("Gefunden").Cells(Zeile, 8) '--Spalte H
Next Zeile
End With
'End Sub