Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub CallForm()
   frmTermin.Show
End Sub

ClassModule: frmTermin

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim vRow As Variant
   Dim iCol As Integer
   If IsDate(txtDate) = False Then
      Beep
      MsgBox "Kein gültiges Datum!"
      Exit Sub
   End If
   vRow = Application.Match(CDbl(CDate(txtDate.Text)), Columns(1), 0)
   If IsError(vRow) Then
      Beep
      MsgBox "Datum wurde nicht gefunden!"
      Exit Sub
   End If
   iCol = WorksheetFunction.CountA(Rows(vRow)) + 1
   Cells(vRow, iCol).Value = txtTime.Text
   Cells(vRow, iCol + 1).Value = txtReiter.Text
   Cells(vRow, iCol + 2).Value = txtGaul.Text
End Sub

    

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