Makro von Makro starten & Variable mitgeben

Sub DualMakro()
Dim Eingabe1 As String
Dim Eingabe2 As String
'Auswertungsdatum auswählen
Eingabe1 = InputBox("Bitte geben Sie das Anfangs-Datum" & Chr(10) & "der Auswertung ein:" & Chr(10) & "(TT.MM.JJJJ)", "Datum 1:")
Eingabe2 = InputBox("Bitte geben Sie das End-Datum" & Chr(10) & "der Auswertung ein:" & Chr(10) & "(TT.MM.JJJJ)", "Datum 2:")
'Eingabeprüfung
If Eingabe1 > Eingabe2 Then
Eingabe2 = Eingabe1
MsgBox ("Ohne eine korrekte 2. Eingabe" & Chr(10) & "wird nur der " & Eingabe1 & Chr(10) & "ausgewertet.")
Call Makro2 /Eingabe = Eingabe1
End If
If Eingabe1 <= Eingabe2 Then
'erster Fall
Eingabe1 = Eingabe1
Call Makro2 /Eingabe = Eingabe1
'alle weiteren Fälle
For Eingabe1 to Eingabe2
Eingabe1 = Eingabe1 + 1
Call Makro2 /Eingabe = Eingabe1
Next Eingabe1
End If
End Sub