Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim cValue As Currency
   If Intersect(Target, Range("D2:D3")) Is Nothing Then Exit Sub
   Cancel = True
   Select Case Time
      Case Is >= 22 / 24
         MsgBox "Kein Telefonat möglich!"
      Case Is >= 18 / 24
         MsgBox "Gebühren: " & Cells(Target.Row, 3).Text
      Case Is >= 14 / 24
         MsgBox "Gebühren: " & Cells(Target.Row, 2).Text
      Case Is >= 10 / 24
         MsgBox "Gebühren: " & Cells(Target.Row, 1).Text
   End Select
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeDoubleClick