VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox