Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen

Gruppe

TextBox

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