Gruppe
Ereignis
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.
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