In Application.InputBox Bereich auswählen

Function Boxen() As Range
Set Boxen = Application.InputBox(Prompt:="Bitte Bereich wählen!", Type:=8)
End Function

=> Wenn ich die Funktion aus einem eigenständigen Makro aufrufe, kann ich bei offener InputBox mit der Tastatur den Bereich wählen:

Sub Inputtest1()
Boxen.Interior.ColorIndex = 6
End Sub

=> Wenn ich die Inputbox aus der Ereignisprozedur eines UserForms aufrufe, funktioniert sie nur mit der Maus, nicht aber mit der Tastatur, obwohl ich sogar die UserForm solange ausblende!

Private Sub TextBoxBereich1_Enter()
FormBereichsvergleich.Hide
Set Bereich1 = Boxen()
If Not Bereich1 Is Nothing Then
TextBoxBereich1.Value = Bereich1.AddressLocal
End If
FormBereichsvergleich.Show
End Sub

Warum ist das so und wie kann ich erreichen, dass ich mit der Tastatur arbeiten kann? Vielen Dank!