Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Zeilen-Aktionen bei Doppelklick
Gruppe
BeforeDoubleClick
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