Thema: Zeilen-Aktionen bei Doppelklick

Home

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.

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

Msg mit 2 Ereignissen +Cancel	Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten	UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?	Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ??	Ereignis Arbeitsblatt sperren abfangen
Ereignisprozedur f. Multipage-Reiter	Frage zum Change ereignis
Change-Ereignis in Combobox unterdrücken	Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul	Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen	Command Button Ereignis
Ereignis von Laufzeit-Checkbox	change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern	change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl	Worksheet_BeforeDoubleClick
Objekt_Error - Ereignis in UserForm	change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen?	Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse	Ausnahmen für Exit-Ereignis
Worksheet_BeforeDoubleClick	Exit-Ereignis SetFocus
select Ereigniss UF Show	Ereignis zeitweise mit Fehler
Ereignismakro	Worksheet_BeforeDoubleClick
Selectereigniss in Spalte	doppeltes Klick-Ereignis
Doppelklick-Ereignis	VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht	Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten	Worksheet_Change Ereignis erweitern
Exit Ereignis springt nicht an	Exit-Ereignis
Ereignis "BeforeSave" - ".Find" geht nic	change ereigniss nicht ausführen Userform
Exit Ereignis	Rekursiven Aufruf von Ereignissen verhindern
Makro läuft nicht, falsches Ereignis?	Dropdown Ereignis