Hallo zusammen,
ich habe mal wieder eine "Problemchen" mit VBA.
Ich fülle eine Tabelle über TextBoxen in einer UserForm.
Möchte nach der Eingabe eines Wertes in eine Textbox prüfen, ob er innerhalb eines von mir definierten Gültigkeitsbereiches liegt.
habe einen Code mit if, else bei dem ich die Zahlen mit <> prüfe, der funktioniert auch.
Was ich aber nicht hinbekomme ist, das der Textbox-Wert mit einem definierten Gültigkeitsbereich in einer Tabelle verglichen wird, mache das mit Application.match. Bekomme einen Fehler: Argument ist nicht optional
Vielen Dank für eure Hilfe
hier der Code der nicht funktioniert:
ich habe mal wieder eine "Problemchen" mit VBA.
Ich fülle eine Tabelle über TextBoxen in einer UserForm.
Möchte nach der Eingabe eines Wertes in eine Textbox prüfen, ob er innerhalb eines von mir definierten Gültigkeitsbereiches liegt.
habe einen Code mit if, else bei dem ich die Zahlen mit <> prüfe, der funktioniert auch.
Was ich aber nicht hinbekomme ist, das der Textbox-Wert mit einem definierten Gültigkeitsbereich in einer Tabelle verglichen wird, mache das mit Application.match. Bekomme einen Fehler: Argument ist nicht optional
Vielen Dank für eure Hilfe
hier der Code der nicht funktioniert:
Visual Basic-Quellcode
- Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- If TextBox2.Value <> "" Then
- If Not TextBox2.Value = Application.WorksheetFunction.Match(Worksheets("Grenzwerte").Range("B3:B70")) Then
- TextBox2.Value = ""
- TextBox2.BackColor = vbRed
- MsgBox "Bitte einen korrekten Fasercode eingeben eingeben"
- Else
- Exit Sub
- End If
- Cancel = True
- End If
- txt_N TextBox2
- End Sub