Hallo,
Len stellt die Länge der Eingabe immer mit 2 fest. Egal ob ich 1, 4 oder 5 Zahlen eingebe.
Gehe ich nach der Eingabe mit der Maus über Len erscheint Len = 2.
------------
Sub Tabelle_für_Blanco_leeren() 'Tabelle für neues Jahr vorbereiten
Dim i As Integer, intNeuesJahr As Integer, strAlterDateiname As String, strNeuerDateiname As String, strPath As String
strPath = ActiveWorkbook.Path
Anfang:
intNeuesJahr = Application.InputBox("Neues Jahr 4stellig eingeben", "Happy new Year!!!!!", 0, Type:=1)
If Len(intNeuesJahr) 4 Then GoTo Anfang
Sheets("Januar").Range("D117").Value = intNeuesJahr
' End If
------------