Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Doppelklick Gebühren aus Tabelle anzeigen

Gruppe

BeforeDoubleClick

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