Guten Morgen und Gesundes neues Zusammen,

ich habe folgende Frage ich möchte gern per Userform eine Variable an ein Modul übergeben.

genau handelt es sich um ein Datum nach dem später gesucht werden soll userform wurde erstellt und mir wird das Datum bis 7 tage im Vorlauf angezeigt. Leider kann ich das ausgesuchte Datum nicht an das Modul über gegeben und im Anschluss danach suchen.

LG Rene und vielen dank im Vorraus

Public Sub Test()
 Dim Zeile    As Long
  Dim ZeileOut As Long
    Dim letzte_zeile As Long
     Dim Eingabedatum As String
    
     
  
  
  With Application
     .ScreenUpdating = False
     .EnableEvents = False
     .Calculation = xlCalculationManual
  End With
  Sheets("Umrechnung FP").Activate
  
sprung1:
  Dateneingabe.Show
  If Eingabedatum = "" Then
    z = MsgBox("Die Eingaben sind nicht vollständig!", vbCritical + vbOKCancel, "Achtung!")
    If z = 1 Then
        GoTo sprung1
    Else
        Exit Sub
    End If
End If
    
If Range("A2").Value = "D" Then
    Sheets("FP(0)").UsedRange.ClearContents
      With Sheets("Umrechnung FP")
         ZeileOut = 1
            For Zeile = 2 To .Cells(Rows.Count, "F").End(xlUp).Row
              If .Cells(Zeile, "F").Value = Eingabedatum Then
                 .Rows(Zeile).Copy destination:=Worksheets("FP(0)").Rows(ZeileOut)
             ZeileOut = ZeileOut + 1
         End If
     Next Zeile
   End With
   Sheets("FP(0)").Activate
   Range("A1:Y250").Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Else
  Sheets("FP(0)ARR").UsedRange.ClearContents
    With Sheets("Umrechnung FP")
         ZeileOut = 1
             For Zeile = 2 To .Cells(Rows.Count, "F").End(xlUp).Row
                 If .Cells(Zeile, "F").Value = Date Then
             .Rows(Zeile).Copy destination:=Worksheets("FP(0)ARR").Rows(ZeileOut)
         ZeileOut = ZeileOut + 1
       End If
    Next Zeile
   End With
   Sheets("FP(0)ARR").Activate
   Call DELSORT
   Range("A1:Y250").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("G1"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
           
           
    Call SheetsAusblenden
           
           With Application
            .ScreenUpdating = True
            .EnableEvents = True
            .Calculation = xlCalculationAutomatic
           End With
   
   

End Sub


2.Userform 

Option Explicit

Public Sub cmdUebernahme_Click()
    Eingabedatum = Date
End Sub

Public Sub UserForm_Initialize()
Dim z As Integer
Dim Datum As String

Datum = Date
For z = 1 To 7
    Dateneingabe.lstDatum.AddItem Datum & " (" & z - 1 & ")"
    Datum = Date + z
Next z
    
End Sub