Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.03.2007 23:35:45 |
Michael |
|
|
Aw:feld in user form auf gültigkeit prüfen |
11.03.2007 15:56:23 |
Stef_113 |
|
|
|
11.03.2007 16:01:49 |
Stef_113 |
|
|
|
11.03.2007 16:06:18 |
Stef_113 |
|
|
Von:
Stef_113 |
Datum:
11.03.2007 15:56:23 |
Views:
1222 |
Rating:
|
Antwort:
|
Thema:
Aw:feld in user form auf gültigkeit prüfen |
Hallo Michael,
ich hab mich mal drangemacht, was zu schreiben. Du musst nur ein Formular mit zwei Textfeldern namens "Textfeld1" und "Textfeld2" haben. Außerdem habe ich anfangs überlesen, dass du schon den Code für Textfeld1 hast und hab deshalb auch dafür geschrieben, aber du kannst ihn ja einfach ignorieren.
CODE:
-------------------------------------------------------------------------------
Private Sub Textfeld1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Deklarierung der Variablen
Dim T1, T2 As Long
Dim Meldung
If Textfeld1.Text <> "" Then
If Not IsNumeric(Textfeld1.Text) Then
Meldung = MsgBox("Bitte geben Sie eine Zahl ein.", _
vbExclamation, "Ung¸ltige Zahl")
Cancel = True
Else
T1 = CLng(Textfeld1.Text) ' Jetzt kann Textfeld1 eingelesen werden.
If Textfeld2.Text <> "" And IsNumeric(Textfeld2.Text) Then
T2 = CLng(Textfeld2.Text) ' Jetzt wird Textfeld 2 eingelesen
If T1 "" Then
T1 = CLng(Textfeld1.Text) ' Jetzt wird Textfeld 1 eingelesen
If T1 < T2 Then
MsgBox "Bitte geben Sie eine Zahl ein, " & _
"die kleiner ist als die oben eingetragene.", vbExclamation, "Ungültige Zahl"
Cancel = True
End If
End If
End If
End Sub
-------------------------------------------------------------------------------
Ich hoffe ich konnte helfen
Stefan |
- 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
|
|
09.03.2007 23:35:45 |
Michael |
|
|
Aw:feld in user form auf gültigkeit prüfen |
11.03.2007 15:56:23 |
Stef_113 |
|
|
|
11.03.2007 16:01:49 |
Stef_113 |
|
|
|
11.03.2007 16:06:18 |
Stef_113 |
|
|