Hallo,
habe ein Abfrage, die ein bestimmtes Datum in eine Zelle schreiben soll. Hierzu bediene ich mich einer Inputbox mit vordefiniertem Datum.
Da ich zwei verschiedenen Daten abfrage, habe ich auch 2 Inputboxen, die hintereinander aufgerufen werden.
Nun möchte ich diese beiden einzelnen Inputboxabfragen in eine einzelne Userform vereinen. Hierzu habe ich eine Userform mit zwei Textboxen gestaltet, in die
die jeweilige Abfrage reingeschrieben werden soll.
Mein Problem: wie kann ich ich beide Textboxen das jeweilige Datum vordefinieren??
Ich wollte den Wert, den ich gemäß unten stehendem Makro in die Inputbox schreiben lasse, direkt in die Zielzelle schreiben lassen und diese dann von den
Textboxen auslesen lassen, aber es klappt nicht.
Kann mr jemand helfen bitte?
Danke, Martin
und so sieht es zZt aus:
Sub Datum1()
Application.ScreenUpdating = False
Sheets("xy").Select
Range("Previous_Date") = Range("Main_Date").Value
If Weekday(Date) = 2 Then
Last_working_day = Format(Date - 3, "dd/mm/yyyy")
Else: Last_working_day = Format(Date - 1, "dd/mm/yyyy")
End If
Ask_for_Date:
On Error GoTo Ask_for_Date
Response = InputBox("Bitte Datum eingeben, falls falsch (dd/mm/yyyy)", "Datum", Format(Last_working_day, "dd/mm/yyyy"))
If Len(Response) = 0 Then
GoTo Ask_for_Date
End If
Range("Main_Date") = DateValue(Response)
On Error GoTo 0
Call Datum2
Application.ScreenUpdating = True
End Sub
-----------------------------------------
Sub Datum2()
Application.ScreenUpdating = False
If Weekday(Date) = 2 Then 'Mon
Last_working_day = Format(Date - 4, "dd/mm/yyyy")
ElseIf Weekday(Date) = 3 Then 'Tue
Last_working_day = Format(Date - 4, "dd/mm/yyyy")
Else: Last_working_day = Format(Date - 2, "dd/mm/yyyy")
End If
Ask_for_F2G_Date:
On Error GoTo Ask_for_F2G_Date
Response = InputBox("Bitte Datum2 eingeben, falls falsch (dd/mm/yyyy)", "Datum2", Format(Last_working_day, "dd/mm/yyyy"))
If Len(Response) = 0 Then
GoTo Ask_for_F2G_Date
End If
Range("F2G_Date") = DateValue(Response)
On Error GoTo 0
Application.ScreenUpdating = True
End Sub