Gültigkeitsprüfung

Hallo Leute,
ich würde mal gerne wissen ob es in UserForm möglich ist,
während der Eingabe von Werten in eine Textbox diesen gleichzeitig auf Gültigkeit zu prüfen.
In der Tabelle hatte ich das mit der
=NICHT(ZÄHLENWENN($H$1:$H$2000;H1)>1)
Formel gelöst, doch funktioniert nur wenn ich die Werte direkt in die Tabellenzeilen schreibe.
Fülle ich die Zeile über Das UserForm funktioniert das ganze nicht mehr.
Zur Info: die Werte in Spalte H dürfen nur 1x vorkommen.
Meine Werte haben folgenden Format z.B. 01/001 bis 99/999
Optimal währe wenn das Programm, bei der Eingabe, mir schon mal die nächste,
jeweilige freie Nummer vorschlagen würde. Das ist aber wahrscheinlich zu viel verlangt.
Vielen Dank im Voraus
Jonny

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
ok, das mit dem nächsten Wert anzeigen wird natürlich etwas schwierig, da deine Eingaben ja keine Zahlen, sondern Texte sind, sonst könnte man sich über die MAX-Funktion den nächsten Freien Wert Anzeigen lassen.
Zur Prüfung:
in Userforms ist es ja meistens so, daß man eine Eingabe per Button bestätigen muss.
ich löse das dann so, daß ich den Commanbutton dazu zunächst einmal auf ENABLED = FALSE setze und erst freigbe, wenn die Eingabe den anforderungen entspricht.
Ein Makro dazu könnte so aussehen:


Private Sub TextBox1_Change()
Dim EingabeOK As Boolean
EingabeOK = False
With TextBox1
If Len(.Text) = 6 Then
If IsNumeric(Left(.Text, 2)) And IsNumeric(Right(.Text, 3)) Then
If Mid(.Text, 3, 1) = "/" Then
If WorksheetFunction.CountIf(Range("$H$1:$H$2000"), .Text) = 0 Then EingabeOK =  _
True
End If
End If
End If
End With
CommandButton1.Enabled = EingabeOK

die Prüfungen sind:
- länge des eingegbenen Strings = 6
- Linker und Rechter Teilstring sind Zahlen
- das 3. Zeichen ist ein Backslash
- der Wert kommt in der Liste nicht vor.
nur wenn alles erfüllt ist, kann der Commandbutton1 geklickt werden.
Gruß, Daniel

Private Sub Textbox1_Change() Dim EingabeOK As Boolean EingabeOK = False With Textbox1 If WorksheetFunction.CountIf(Range("$H$1:$H$2000"), .Text) = 0 Then EingabeOK = _ True End With Commandbutton1.Enabled = EingabeOK End Sub

Private Function NächsteFreieLfdNr_Gruppe(Zellbereich As Range, Gruppe As String) As string Dim arr Dim Wert Dim Max As Integer Max = 0 arr = Zellbereich.Value For Each Wert In arr If Left(Wert, 2) = Gruppe Then If CInt(Right(Wert, 3)) > Max Then Max = CInt(Right(Wert, 3)) End If Next NächsteFreieLfdNr_Gruppe = format(Max + 1,"000") End Function

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Gültigkeitsprüfung

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread