InputBox mit Datum
20.12.2021 14:20:34
HeinzH
Habe eine InputBox die mir Werte in eine Zeile (A2) schreibt.
Nur komme ich mit dem Datumsformat nicht zu recht.
Meine Vorstellung wäre, das ich in der InputBox nur das Jahr eingebe,
und in Sheets"Schichtplan AF".Range"A2" mir 01.01.2022 eingegeben wird.
Also immer nur das Jahr zb. 2022 eingeben, aber das Datum 01.01.2022 in der Zeile übernommen wird.
Hätte dazu jemand eine Lösung ?
Danke
SG, Heinz
Sub Jahr_anpassen()
Dim Inp_Jahr As Integer
Inp_Jahr = Application.InputBox("Bitte das Jahr eingeben:", "Jahreseingabe", "2010")
If IsNumeric(Inp_Jahr) And Inp_Jahr > 2009 Then
Sheets("Schichtplan AF").Range("A2") = Inp_Jahr
Else
MsgBox "Abgebrochen"
End If
End Sub
Anzeige