VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Doppelklick Gebühren aus Tabelle anzeigen

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

    


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