VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeilen-Aktionen bei Doppelklick

Gruppe

Ereignis

Bereich

BeforeDoubleClick

Thema

Zeilen-Aktionen bei Doppelklick

Problem

Bei Doppelklick auf eine Zelle soll der Wert aus Zeile 1 der doppelgeklickten Spalte mit dem Wert der Zeilennummer multipliziert und in einer MsgBox angezeigt werden. Gleichzeitig soll sich der Hintergrund der Zelle rot färben.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




ClassModule: Tabelle1

Public dblValue As Double

Private Sub Worksheet_BeforeDoubleClick( _
   ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   If dblValue = 0 Then
      dblValue = Cells(1, Target.Column) * Target.Row
      MsgBox dblValue
      Target.Interior.ColorIndex = 3
   Else
      Target.Value = dblValue
      Target.Interior.ColorIndex = 50
      dblValue = 0
   End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   dblValue = 0
End Sub

    


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