Gruppe
Ereignis
Problem
Bei Doppelklick auf Erwachsener oder Jugendlicher soll in Abhängigkeit der aktuellen Uhrzeit eine MessageBox mit den Gebühren der Tabelle gezeigt werden.
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