In Textbox nur Zahlen aus einer Range zulassen
06.01.2016 18:29:42
Andre
ein gesundes neues Jahr wünsche ich.
Ich habe eine Frage und hoffe Ihr könnt mir Helfen.
Ich habe eine Userform in der eine Textbox1 vorhanden ist. Es dürfen nur festgelegte 3stellige Zahlen (Mitarbeiternummer) möglich sein. Das funktioniert auch alles.
Um auch meinem Chef die Möglichkeit zu geben, in meiner Abwesenheit andere Zahlen zuzulassen (wenn ich krank wäre oder ähnlich)wäre es von Vorteil, die zulässigen Zahlen kämen aus einem Tabellenbereich des selben Workbook. Das Tabellenblatt heißt in diesem Fall "Chef" und die zulässigen Nummern stehen in dem Bereich B2 bis B35.
Gibt es eine Möglichkeit oder eine Idee, wie man das bewerkstelligen kann? So das man wechselnde Nummern nicht im Script ändern muss.
anbei das Script so wie es bisher läuft.
Vielen Dank für die Antwort im Voraus.
Gruß André
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Zähl As Long
Dim PinArray As String
Dim PinListe() As String
Dim PinKorrekt As Boolean
'Array mit gültigen Personalnummern erstellen
PinArray = "000 111 141 114 119 116 129 115 123 127 125 118 131 132 137 134 122 124 136 126 _
143 121 138 134 128 112 133 117 139 113 135 144" 'das entsprechend anpassen
PinListe = Split(PinArray)
PinKorrekt = False
'Prüfen ob in Textbox eine gültige Personalnummer eingegeben wurde
For Zähl = LBound(PinListe) To UBound(PinListe)
If Me.TextBox1 = PinListe(Zähl) Then
PinKorrekt = True
Exit For
End If
Next Zähl
'Wenn Pin nicht gültig dann MsgBox und Fokus bleibt auf Textbox
If Not PinKorrekt Then
MsgBox "Die Ma Nr. ist nicht bekannt."
Me.TextBox1 = ""
Cancel = True
End If
End Sub