Microsoft Excel

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