Gruppe
Dialog
Bereich
TextBox
Thema
Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen
Problem
Wie kann ich über eine UserForm eine Startnummer auswählen, in der entsprechenden Tabellenzeile die aktuelle Zeit eintragen und die Rennzeit berechnen lassen?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmRennZeit
Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub cmdEintragen_Click()
Cells(cboNummer.ListIndex + 1, 3) = Now
End Sub
Private Sub UserForm_Initialize()
cboNummer.ListIndex = 1
End Sub
StandardModule: basMain
Sub CallForm()
frmRennZeit.Show
End Sub