Erschwerend kommt noch hinzu, das sich der Wert der Zelle A3, somit auch Zelle A1 je nach Eingabe ändert, (verschiedene Stunden). Geht das überhaupt?
Option Explicit
Sub EingabeBox()
Dim Eingabe, Var$
Eingabe = InputBox("Vorjahresstunden eingeben")
If Eingabe = "" Then Exit Sub
Var = Eingabe
Var = Mid(Var, 3, 1)
Range("A1") = Eingabe
End Sub
mfg
Gerhard S.