Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.11.2019 19:24:02 |
Chrimaet |
|
|
|
30.11.2019 22:40:30 |
Gast7777 |
|
|
Addieren von Textboxen wenn Wert <2 ist |
01.12.2019 10:13:32 |
tscharl |
|
|
|
01.12.2019 14:25:09 |
Gast48487 |
|
|
|
01.12.2019 14:29:18 |
Chrimaet |
|
|
|
01.12.2019 15:05:25 |
tscharl |
|
|
|
01.12.2019 15:13:11 |
tscharl |
|
|
|
01.12.2019 15:13:13 |
tscharl |
|
|
|
01.12.2019 16:47:18 |
Chrimaet |
|
|
|
01.12.2019 16:38:08 |
Chrimaet |
|
|
|
01.12.2019 20:22:25 |
tscharl |
|
|
|
01.12.2019 21:31:05 |
Chrimaet |
|
|
|
01.12.2019 21:51:44 |
Chrimaet |
|
|
|
01.12.2019 22:43:33 |
tscharl |
|
|
|
01.12.2019 22:51:19 |
tscharl |
|
|
|
02.12.2019 00:24:29 |
Chrimaet |
|
|
|
02.12.2019 08:13:33 |
tscharl |
|
|
|
07.12.2019 16:16:27 |
Chrimaet |
|
|
|
07.12.2019 16:28:51 |
tscharl |
|
|
|
07.12.2019 16:47:53 |
Chrimaet |
|
|
|
07.12.2019 16:55:12 |
tscharl |
|
|
|
07.12.2019 17:18:58 |
Chrimaet |
|
|
|
07.12.2019 21:58:58 |
Gast45422 |
|
|
|
07.12.2019 22:00:08 |
tscharl |
|
|
|
07.12.2019 22:32:30 |
Chrimaet |
|
|
|
07.12.2019 23:12:33 |
tscharl |
|
|
|
08.12.2019 00:23:30 |
Chrimaet |
|
|
Von:
tscharl |
Datum:
01.12.2019 10:13:32 |
Views:
684 |
Rating:
|
Antwort:
|
Thema:
Addieren von Textboxen wenn Wert <2 ist |
Mein Vorschlag: Bei jedem Change-Ereignis die Textboxen 1 bis 3 neu berechnen.
###############################################################################
Option Explicit
Dim strWeiterSo As String
Dim strFehler As String
Dim strHinweis As String
Private Sub UserForm_Initialize()
strWeiterSo = "Mach weiter so, dann schaffst du die Bahnen unter 18."
strFehler = "Du hast nur 6 Schläge!"
strHinweis = "Bitte gültigen Wert eingeben."
Dim n As Integer
For n = 1 To 3
Me.Controls("Bahn" & n).Value = 0
Next n
End Sub
Private Sub Bahn1_Change()
If Len(Bahn1.Text) = 0 Then
MsgBox strHinweis
Exit Sub
End If
If Val(Bahn1.Text) = 0 Then
MsgBox strWeiterSo
End If
If Bahn1 > 7 Then
MsgBox strFehler
End If
Call Berechne
End Sub
Private Sub Bahn2_Change()
If Len(Bahn2.Text) = 0 Then
MsgBox strHinweis
Exit Sub
End If
If Val(Bahn2.Text) = 0 Then
MsgBox "Mach weiter so, dann schaffst du die Bahnen unter 18."
End If
If Bahn2 > 7 Then
MsgBox "Du hast nur 6 Schläge!"
End If
Call Berechne
End Sub
Private Sub Bahn3_Change()
If Len(Bahn3.Text) = 0 Then
MsgBox strHinweis
Exit Sub
End If
If Val(Bahn3.Text) = 0 Then
MsgBox "Mach weiter so, dann schaffst du die Bahnen unter 18."
End If
If Bahn3 > 7 Then
MsgBox "Du hast nur 6 Schläge!"
End If
Call Berechne
End Sub
Private Sub Berechne()
Dim n As Integer
For n = 1 To 3
Me.Controls("Textbox" & n).Text = 0
Next n
For n = 1 To 3
If Me.Controls("Bahn" & n).Value = 1 Then
Textbox1.Text = Textbox1.Text + 1
End If
If Me.Controls("Bahn" & n).Value > 2 Then
Textbox2.Text = Textbox2.Text - 2
End If
Next n
Textbox3.Text = Val(Bahn1.Text) + Val(Bahn2.Text) + Val(Bahn3.Text)
End Sub
|
- 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
|
|
30.11.2019 19:24:02 |
Chrimaet |
|
|
|
30.11.2019 22:40:30 |
Gast7777 |
|
|
Addieren von Textboxen wenn Wert <2 ist |
01.12.2019 10:13:32 |
tscharl |
|
|
|
01.12.2019 14:25:09 |
Gast48487 |
|
|
|
01.12.2019 14:29:18 |
Chrimaet |
|
|
|
01.12.2019 15:05:25 |
tscharl |
|
|
|
01.12.2019 15:13:11 |
tscharl |
|
|
|
01.12.2019 15:13:13 |
tscharl |
|
|
|
01.12.2019 16:47:18 |
Chrimaet |
|
|
|
01.12.2019 16:38:08 |
Chrimaet |
|
|
|
01.12.2019 20:22:25 |
tscharl |
|
|
|
01.12.2019 21:31:05 |
Chrimaet |
|
|
|
01.12.2019 21:51:44 |
Chrimaet |
|
|
|
01.12.2019 22:43:33 |
tscharl |
|
|
|
01.12.2019 22:51:19 |
tscharl |
|
|
|
02.12.2019 00:24:29 |
Chrimaet |
|
|
|
02.12.2019 08:13:33 |
tscharl |
|
|
|
07.12.2019 16:16:27 |
Chrimaet |
|
|
|
07.12.2019 16:28:51 |
tscharl |
|
|
|
07.12.2019 16:47:53 |
Chrimaet |
|
|
|
07.12.2019 16:55:12 |
tscharl |
|
|
|
07.12.2019 17:18:58 |
Chrimaet |
|
|
|
07.12.2019 21:58:58 |
Gast45422 |
|
|
|
07.12.2019 22:00:08 |
tscharl |
|
|
|
07.12.2019 22:32:30 |
Chrimaet |
|
|
|
07.12.2019 23:12:33 |
tscharl |
|
|
|
08.12.2019 00:23:30 |
Chrimaet |
|
|