Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Keinen Zahl kleiner 1 in TextBox zulassen

Keinen Zahl kleiner 1 in TextBox zulassen
23.10.2023 00:09:40
Luna
Hallo ins Forum,
eine kurze Frage an euch Experten. Ich habe eine Textbox die beim starten der UF auf 1 steht. Es können nur Zahlen von 0-9 eigegeben werden. Über die händische Eingabe oder einen Spinbutton kann der Wert erhöht oder verringert werden. Wie stelle ich es an das das SpinbuttonDown Event sagen wir mal stoppt wenn der Wert unter 1 gehen soll, bedeutet wenn die 1 in der TextBox erscheint verringert sich der Wert auch nicht wenn ich den Button drücke und das auch händisch keine Wert unter 1 eingegeben werden kann? Geht das überhaupt? Mit 0 als niedrigsten Wert kann ich auch noch leben ;-) ;-)
Vielen Dank an alle die hier immer wieder uns Laien retten.
Luna
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Keinen Zahl kleiner 1 in TextBox zulassen
23.10.2023 00:21:19
Ulf
Hi Luna
bspw.


Private Sub SpinButton1_Change()
Me.SpinButton1.Min = 1
Me.TextBox1.Value = Me.SpinButton1.Value
End Sub

oder in


Private Sub UserForm_Initialize()
Me.SpinButton1.Min = 1
End Sub

hth
Ulf
Anzeige
AW: Keinen Zahl kleiner 1 in TextBox zulassen
23.10.2023 00:36:26
Luna
Hallo Ulf,
super Danke. Damit hätte ich den Spinbutton schonmal gelöst. Wenn möglich fehlt mir dann nur noch das man auch händisch keinen Wert kleiner 1 eingeben kann.
Danke
Luna
AW: Keinen Zahl kleiner 1 in TextBox zulassen
23.10.2023 01:19:49
Ulf
Hi


Private Sub TextBox1_Change()
Static bArbeitet As Boolean
Dim strText As String
If bArbeitet = True Then
Exit Sub
End If
bArbeitet = True
strText = Me.TextBox1.Text
If IsNumeric(strText) Then
If CLng(strText) 1 Then
Me.TextBox1.Text = 1
End If
Else
'ggf
'Me.TextBox1.Text = 1
'oder
Me.TextBox1.Text = ""
End If
bArbeitet = False
End Sub

hth
Ulf
Anzeige
AW: Keinen Zahl kleiner 1 in TextBox zulassen
23.10.2023 01:26:45
Luna
Super Spitzenklasse Ulf.
Vielen Dank für die klasse Arbeit.
Luna
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige