Office: Falscheingabe in Textbox abfangen

hallo

hab da mal wieder ein mehr oder weniger großes problem....

wär schön wenn mir jemand dabei helfen könnte.


ich habe eine textbox in die werte eingetragen werden

es dürfen jedoch nur bestimmte werte eingetragen werden
(zahlenreihen mit 12 stellen - ungefähr 1000 verschiedene)

wie kann ich falscheingaben abfangen?

mit freundlichen grüßen
sascha

 

Hi Sascha,

Frage: weshalb verwendest du denn keine ListBox oder ComboBox anstelle der TextBox? In den beiden Steuerelementen werden doch nur die "zugelassenen" Eingaben angezeigt bzw. sind auswählbar.

Bis päter,
Karin

 

Hallo!

Sind die gültigen Werte denn irgendwo aufgelistet?
Dann könntest du doch per If und CountIf das Vorkommen abfragen.

 

hallo ihr beiden,

dankeschön für eure schnellen antworten


@ karin: hatte es schon über einer listbox probiert, jedoch dauert das zu lange, die richtige zahlenfolge rauszusuchen.

bei einer combobox, konnte ich auch andere werte, als die zugewiesenen eintragen und ausgeben (hab ich was falsch gemacht?)

@schatzi: ja die gültigen werte sind in der selben datei in einem anderen tabellenblatt von A1:A508 aufgelistet....

hättest du noch ein paar informationen für mich, wie ich das mit if und count if realisieren könnte

lieben gruß
sascha

 

Hallo!

Ich dachte an etwas in dieser Art (ungetestet):

Code:

If WorksheetFunction.CountIf(Sheets("Blattname").Range("A1:A508"), TextBox1.Text) = 0 Then
MsgBox("ungültig")
Else
MsgBox("gültig")
End If

PS: Bei einer ComboBox kannst du in den Eigenschaften "MatchRequired" auf "True" setzen.

 

Juchu :))

ein hoch auf "MatchRequired"


...das wär die einfachste Lösung.....


vielen dank karin & schatzi für die hilfe

 

hallo schatzi,...

wär schön wenn du mir doch noch weiter helfen könntest

der code von dir gefällt mir, und nach ersten probieren funktioniert der auch ganz gut.

jetzt hätt ich noch eine frage, wenn ich den mit einem button verknüpfe, soll die zahl nur in zelle (z, 1) ausgegeben werden wenn sie "gültig ist"

wie müsste man den umschreiben?????

gruß sascha

code:

Code:

Private Sub CommandButton1_Click()

If WorksheetFunction.CountIf(Sheets("Tabelle1").Range("b1:b5"), TextBox1.Text) = 0 Then
MsgBox ("ungültig")
Else
MsgBox ("gültig")
End If

z = Range("A1").End(xlDown).Row + 1
If z > 1 Then z = 2
    Cells(z, 1) = TextBox1

End Sub

 

Hallo!

ungetestet:

Code:

Private Sub CommandButton1_Click()

If WorksheetFunction.CountIf(Sheets("Tabelle1").Range("b1:b5"), TextBox1.Text) > 0 Then

z = Range("A1").End(xlDown).Row + 1
If z > 1 Then z = 2
    Cells(z, 1) = TextBox1

End If
End Sub

 

super,

vielen dank für die mal wieder schnelle hilfe


lieben gruß
sascha