Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon herbybeatle vom 15.02.2019, 15:13 Options
Textboxen in Userform
Hallo miteinander, bin wieder 'mal auf ein Problem gestossen: möchte aus vielen Textboxen die Werte auslesen und in eine andere Textbox addiert hineinschreiben. Das schwierige dabei ist, es sollen nur positive Werte in die eine Box, die negativen Werte in eine andere Textbox geschrieben werden. Kann mir da jemand einen guten Tipp geben?
Vielen Dank schon 'mal im voraus,
Herby
Vielen Dank schon 'mal im voraus,
Herby
Antwort 1 von herbybeatle vom 21.02.2019, 13:11 Options
Konnte mit meinen bescheidenen Programmierkenntnissen doch noch eine Lösung finden. Ist vielleicht ein wenig umständlich, funktioniert aber. Habe 10 Spiele à 5 Sätze (best of 5); der Übersichtlichkeit halber hier nur die ersten drei Werte. Ein Satz ist gewonnen, wenn einer der beiden Spieler 11 Punkte erreicht hat (bei mind. 2 Punkten Abstand) ; bei positiven Punkten gewinnt Spieler1, bei negativen Punkten SpielerA;
pw1 = 0
pw2 = 0
pw3 = 0
....
nw1 = 0
nw2 = 0
nw3 = 0
....
If Val(S1S1) > 0 Then If Val(S1S1) < 10 Then pw1 = 11 Else pw1 = Val(S1S1) + 2 Else If Val(S1S1) < 0 Then If Val(S1S1) > (-10) Then nw1 = 11 Else nw1 = Val(S1S1) * (-1) + 2
If Val(S1S2) > 0 Then If Val(S1S2) < 10 Then pw2 = 11 Else pw2 = Val(S1S2) + 2 Else If Val(S1S2) < 0 Then If Val(S1S2) > (-10) Then nw2 = 11 Else nw2 = Val(S1S2) * (-1) + 2
If Val(S1S3) > 0 Then If Val(S1S3) < 10 Then pw3 = 11 Else pw3 = Val(S1S3) + 2 Else If Val(S1S3) < 0 Then If Val(S1S3) > (-10) Then nw3 = 11 Else nw3 = Val(S1S3) * (-1) + 2
Vielleicht hilft meine Erkenntnis ja noch jemandem?
Viel Spaß,
Herby
pw1 = 0
pw2 = 0
pw3 = 0
....
nw1 = 0
nw2 = 0
nw3 = 0
....
If Val(S1S1) > 0 Then If Val(S1S1) < 10 Then pw1 = 11 Else pw1 = Val(S1S1) + 2 Else If Val(S1S1) < 0 Then If Val(S1S1) > (-10) Then nw1 = 11 Else nw1 = Val(S1S1) * (-1) + 2
If Val(S1S2) > 0 Then If Val(S1S2) < 10 Then pw2 = 11 Else pw2 = Val(S1S2) + 2 Else If Val(S1S2) < 0 Then If Val(S1S2) > (-10) Then nw2 = 11 Else nw2 = Val(S1S2) * (-1) + 2
If Val(S1S3) > 0 Then If Val(S1S3) < 10 Then pw3 = 11 Else pw3 = Val(S1S3) + 2 Else If Val(S1S3) < 0 Then If Val(S1S3) > (-10) Then nw3 = 11 Else nw3 = Val(S1S3) * (-1) + 2
Vielleicht hilft meine Erkenntnis ja noch jemandem?
Viel Spaß,
Herby
Ähnliche Themen
Textbox in Userform
herbybeatle 15.02.2007 - 106 Hits - 4 Antworten
Textboxen für Excel
ReneS 18.07.2007 - 12 Hits - 1 Antwort
Excel benutzen, trotz offener Userform
BlauLED 22.10.2007 - 162 Hits - 1 Antwort
inhalte von textboxen untereinander tauschen
bahrenfeld2000 05.06.2008 - 9 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
