Gruppe
Ereignis
Bereich
BeforeDoubleClick
Thema
Bei Doppelklick Gebühren aus Tabelle anzeigen
Problem
Bei Doppelklick auf Erwachsener oder Jugendlicher soll in Abhängigkeit der aktuellen Uhrzeit eine MessageBox mit den Gebühren der Tabelle gezeigt werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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