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