Excel vba

[Nader2022]

Hallo zusammen,
folgender Code:

Option Explicit
Private Sub CommandButton1_Click()
Unload UF_Status_Vorbestellungen
End Sub
Private Sub CommandButton2_Click()
'Teil (1) Pivot Tabelle aktualisieren
Sheets("Tabelle4").Activate
ThisWorkbook.RefreshAll
'Teil (2) Eingabe vom Datum über Inputbox
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Datum eingeben!")
If Trim(FindString) <> "" Then
    With Sheets("Tabelle1").Range("A:A") 'searches all of column A
        Set Rng = .Find(What:=FindString, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
            Application.Goto Rng, True 'value found
        Else
            MsgBox "Nothing found" 'value not found
        End If
    End With
Dim num As String
num = InputBox(prompt:="Datum", Title:="Datum eingeben")
Sheets("Tabelle4").PivotTables("PivotTable1") _
.PivotFields("Datum").CurrentPage = num
End If
End Sub
Private Sub UserForm_Initialize()
'Anzeigen ListBox1
Dim lLetzte1  As Long
Application.ScreenUpdating = False
ListBox1.Clear
With Worksheets("Tabelle4")
lLetzte1 = .Cells(Rows.Count, 1).End(xlUp).Row
  With Me.ListBox1
      .ColumnCount = 2
      ' ListBox1.Selected(0) = True
      .ColumnHeads = False
      .Font.Size = 18
      ListBox1.RowSource = "Tabelle4!A1:K1" & lLetzte1
  End With
End With
Application.ScreenUpdating = True
ListBox1.ColumnWidths = "18,0 Cm;8,0 Cm"
End Sub


(1). Eingabe "Datum" mit Find und anschließende Suche in der Tabelle erfolgt, ob vorhanden oder nicht (kein Problem).
(2). Danach funktioniert leider der Zugriff auf die Pivot Tabelle nicht richtig, da ich mit Abfragen nicht zurecht
      komme und die Aktualisierung der Pivot Tabelle nicht mehr stattfindet.
Über jede auch so kleine Hilfe wäre ich sehr dankbar
Vielen Dank