|
Hallo,
das kann man mit einem UserForm elegant lösen.
Im Userform können diese Besonderheiten berücksichtigt werden.
Im Standard Input-Box können leider keine weiteren Regeln übergeben werden. Um es dennoch mit einer Input-Box umsetzen zu können, muss nach einer Eingabe der Wert erst überprüft und bei Bedarf eine Fehlermeldung angezeigt werden.
Im Fehlerfall müsste dann noch dafür gesorgt werden, dass die InputBox erneut wieder angezeigt wird.
Um eine etwaige vorhandene Eingabe in der Input-Box als Vorschlagswert anzeigen lassen zu können, muss folgender Code eingesetzt werden:
Sub bei_start_inputbox()
Dim PjNr As String
Dim bOK As Boolean
PjNr = Range("A1").Value
While Not bOK
PjNr = InputBox("Eingabe-Pers. NR", "Abfrage Pers.-Nr.", PjNr)
If PjNr <> "" Then
If IsNumeric(PjNr) Then
If Len(CStr(Val(PjNr))) = 8 Then
Range("A1").Value = PjNr
bOK = True
Else
MsgBox "Die Pers. Nr muss 8-stellig sein", vbCritical
End If
Else
MsgBox "Die Pers. Nr. muss numerisch sein.", vbCritical
End If
Else
bOK = True
End If
Wend
End Sub
LG, BigBen
|