Wie kann ich aus 4 Textboxen den höchsten Zahlenwert ermitteln und diesen um 11 erhöhen.
Textbox1 = 1990 Textbox2 = 1998 Textbox3 = 1999 Textbox4 = 2000
Ergebnis sollte 2000 + 11 = 2011 sein.
Hallo Manfred!
Von Prinzip her so: Sub Max_TextBox() Dim ergebnis AsDouble ergebnis = Application.Max(CDbl(TextBox1), CDbl(TextBox2), _ CDbl(TextBox3), CDbl(TextBox4)) + 11 MsgBox ergebnis EndSub Code eingefügt mit: Excel Code Jeanie Gruß Sepp
Anzeige
AW: höchsten Wert aus Textbox ermitteln
01.12.2004 22:16:07
Manfred
Hallo Sepp,
Danke für die schnelle Hilfe. Mit Max und CDbl hatte ich das auch schon versucht gehabt. Habe aber Application nicht davor gesetzt. Wenn die Textbox allerdings leer ist (kann auch vorkommen)funktioniert cdbl nicht. Ist aber kein Problem, ich setze dann einfach den Wert der Textbox auf 0 und es funktioniert.
Also nochmals Danke.