|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.03.2007 23:35:45 |
Michael |
|
|
|
11.03.2007 15:56:23 |
Stef_113 |
|
|
|
11.03.2007 16:01:49 |
Stef_113 |
|
|
 Nur 2. Anweisung |
11.03.2007 16:06:18 |
Stef_113 |
|
|
Von:
Stef_113 |
Datum:
11.03.2007 16:06:18 |
Views:
1013 |
Rating:
|
Antwort:
|
Thema:
Nur 2. Anweisung |
Hi,
ich bins nochmal. Es lag nicht am kopieren, sondern anscheinen am Server. Ich sende jetzt doch nur die zweite *peinlich*
CODE:
-----------
Private Sub Textfeld2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim T1, T2 As Long 'Deklarierung der Variablen
Dim Meldung
If Textfeld2.Text = "" Or Not IsNumeric(Textfeld2.Text) Then
Meldung = MsgBox("Bitte geben Sie eine Zahl ein.", vbExclamation, "Ungültige Zahl")
Cancel = True 'Focuswechsel wird blockiert
Else
T2 = CLng(Textfeld2.Text) ' Jetzt kann Textfeld2 eingelesen werden.
If Textfeld1.Text <> "" 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
---------
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 |
|
|
|
11.03.2007 15:56:23 |
Stef_113 |
|
|
|
11.03.2007 16:01:49 |
Stef_113 |
|
|
Nur 2. Anweisung |
11.03.2007 16:06:18 |
Stef_113 |
|
|