Hallo zusammen,

ich benütze beim Öffnen einer Excel-Datei folgende Abfragebox zu Beginn:

Sub bei_start_inputbox()
     Range("A1").Value = InputBox("Eingabe-Pers. NR", "Abfrage Pers.-Nr.", "")
End Sub

Private Sub Workbook_Open()
    bei_start_inputbox
End Sub

Jetzt hätte ich 3 Umstände, welche dabei berücksichtigt werden sollen:

a) es sollte der Default-Wert nicht leer sein (wäre nur beim ersten Öffnen so), sondern den Wert wiedergeben werden, welcher u.U. in Zelle A1 schon von früher steht

b) es sollten nur Werte akzeptiiert werden, welche 5 Ziffern entsprechen

c) es ist zwingend immer eine Eingabe der 5 Ziffern notwendig, bevor es überhaupt weitergeht. Ausser, es werden bereits aus A1 diese Ziffernfolge schon beim 2x Öffnen bereitgestellt.

Könnte man den Code dahingehend modiizieren?

Danke & Gruss,

Jürgen