Hallo ich möchte folgenden Bericht so speichern...
V1_A_B_C_D_StartJJJJMMTT_EndJJJJMMTT
Und habe den Code:
Dim StartDatum As String
Dim EndDatum As String
StartDatum = InputBox("Start-Datum:", "Eingabe", Format(Now, "YYYYMMDD"))
EndDatum = InputBox("End-Datum:", "Eingabe", Format(Now, "YYYYMMDD"))
Columns("D:D").Select
Cells.Replace _
What:="Startdatum im Format JJJJMMTT", _
Replacement:=StartDatum, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Columns("E:E").Select
Cells.Replace _
What:="Enddatum im Format JJJJMMTT", _
Replacement:=EndDatum, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Wie kann ich es schaffen, dass beim EIngeben der Datumsabfragemaske automatisch er sich merkt, dass er das bei dem V1_A_B_C_D_StartJJJJMMTT_EndJJJJMMTT auch so speichert?, das wäre toll.