Hi,
VBA-Experten gibts leider nicht allzu Viele. Aber kann es sein, dass du noch nie mit Userforms gearbeitet hast? An deinem Code ist ja fast Alles fehlerhaft.
Sämtlicher Code nach Unload Me wird nicht mehr ausgeführt. Warum wohl???
Mit Userform1.Show rufst du ein anderes Formular gebunden auf. D.h. solange das angezeigt wird, kann der nachfolgende Code nicht ausgeführt werden!
Du solltest dir entweder im Initialize-Ereignis des zweiten Formulars die Daten des ersten holen, oder die Formulare ungebunden aufrufen. Lies dir dazu nochmal ein bisschen was zum Thema Formulare durch. Da gibt's im Netz genügend Beispiele.
Außerdem warum 6 Textboxen? Für Stunden, Minuten und Sekunden braucht man nur 3. Alles andere ist nicht nutzerfreundlich. Für die Darstellung der Zeit könntest du z.B. auch UserForm1.Label1.Caption = Format(a, "00") & ":" & Format(b, "00") & ":" & Format(c, "00") machen.
Gruß Mr. K.
|