Hallo tscharl, habe deinen Code für 18 Bahnen erweitert, Msgboxen erscheinen nun wie sie sollen, Textbox1 für Asse immer noch Top, Textbox3 für Gesamtergebnis auch gut nur die Textbox2 für Fehler die addiert jetzt nicht die werte sondern schreibt sie nebeneinander :( .
Habe darüber zwar schon mal ein Video gesehen wie man es verhindert finde das gerade nicht, werde aber mal weiter Googlen ;) .
Was allerdings jetzt mit diesem Code auch nicht mehr funktioniert sind 2 Comondbutton.
comondbutton1 für Abruch hier erscheint jetzt die Meldung " Bitte gültigen Wert eingeben" wenn nicht alle Felder ausgefüllt sind.
Der Code hier für:
Private Sub Button_Abbruch_Click()
Unload ErgebnisFormular
End Sub
comondbutton2 zum löschen der Inhalte zeigt die gleiche Meldung wenn nicht alle Felder ausgefüllt sind, sind alle gefüllt funktioniert der Button.
Der Code hier für:
Private Sub Button_Löschen_Click()
Dim objControl As Control
For Each objControl In Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "OptionButton", "CheckBox"
objControl.Value = False
End Select
Next
ErgebnisFormular.Datum.Value = Date
End Sub
Danke für Deine Hilfe, du bist Spitze
Gruß
Chrimaet
|