Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.02.2021 16:17:27 |
Gast36427 |
|
|
|
28.02.2021 16:53:12 |
xlKing |
|
|
|
28.02.2021 20:05:52 |
Gast87939 |
|
|
|
28.02.2021 22:11:03 |
xlKing |
|
|
|
05.03.2021 08:44:01 |
Gast7393 |
|
|
|
05.03.2021 18:48:19 |
xlKing |
|
|
|
05.03.2021 18:51:11 |
xlKing |
|
|
|
05.03.2021 20:30:20 |
Gast92821 |
|
|
|
05.03.2021 20:49:53 |
Gast44912 |
|
|
|
06.03.2021 01:48:19 |
xlKing |
|
|
|
06.03.2021 08:39:46 |
Gast8767 |
|
|
|
06.03.2021 10:59:03 |
Gast5763 |
|
|
 UserForm Eingabefilter |
06.03.2021 18:01:50 |
xlKing |
|
|
Von:
xlKing |
Datum:
06.03.2021 18:01:50 |
Views:
809 |
Rating:
|
Antwort:
|
Thema:
UserForm Eingabefilter |
Das hab ich dir doch bereits geschrieben. Sowas mach man mit einer If-Bedingung. Wo du diese einbaust bleibt dir überlassen. Du kannst sie z.B. an den Anfang von CommandButton1_Click einbauen. Dann erfolgt die Prüfung erst wenn du auf den Commandbutton klickst. Das hat den Vorteil, dass du so alle Felder im Formular auf einmal prüfen kannst.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Private Sub CommandButton1_Click()
If TextBox1 < 4 Then
MsgBox "Bitte geben sie in Feld1 einen Wert größer 3 ein"
Exit Sub
End If
With Sheets( "Tabelle1" )
zei = .Cells(.Rows.Count, 1). End (xlUp).Row + 1
.Range( "A" & zei).Value = TextBox1.Value
.Range( "B" & zei).Value = TextBox2.Value
.Range( "D" & zei).Value = TextBox3.Value
End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub
|
Oder du fügst den Code z.B. im AfterUpdate-Ereignis deiner Textbox ein. Das hat wiederum den Vorteil, dass bereits während der Eingabe auf Gültigkeit geprüft wird. In dem Fall musst du aber für jede Textbox eine eigene Prüfung machen. Was wiederum nachteilig für den Code ist.
1 2 3 4 5 6 | Private Sub TextBox1_AfterUpdate()
If TextBox1 < 4 And TextBox1 <> "" Then
MsgBox "Bitte geben sie in Feld1 einen Wert größer 3 ein"
TextBox1 = ""
End If
End Sub
|
Du siehst es gibt viele Möglichkeiten das aufzubauen. Du musst nur halt genau wissen, was du eigentlich willst.
Gruß Mr. K.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.02.2021 16:17:27 |
Gast36427 |
|
|
|
28.02.2021 16:53:12 |
xlKing |
|
|
|
28.02.2021 20:05:52 |
Gast87939 |
|
|
|
28.02.2021 22:11:03 |
xlKing |
|
|
|
05.03.2021 08:44:01 |
Gast7393 |
|
|
|
05.03.2021 18:48:19 |
xlKing |
|
|
|
05.03.2021 18:51:11 |
xlKing |
|
|
|
05.03.2021 20:30:20 |
Gast92821 |
|
|
|
05.03.2021 20:49:53 |
Gast44912 |
|
|
|
06.03.2021 01:48:19 |
xlKing |
|
|
|
06.03.2021 08:39:46 |
Gast8767 |
|
|
|
06.03.2021 10:59:03 |
Gast5763 |
|
|
 UserForm Eingabefilter |
06.03.2021 18:01:50 |
xlKing |
|
|