Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Doppelklick aufrufende Zelle in UserForm nennen

Gruppe

BeforeDoubleClick

Problem

Bei Doppelklick im Bereich A1:A10 soll eine UserForm aufgerufen und die aufrufende Zelle dort genannt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_BeforeDoubleClick( _
   ByVal Target As Range, Cancel As Boolean)
   If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
   Cancel = True
   frmCaller.Show
End Sub

ClassModule: frmCaller

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   If OptionButton1.Value = True Then
      ActiveCell.Value = "Ein Wert"
   End If
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   frame1.Caption = "Eintrag in Zelle " & _
      ActiveCell.Address(False, False)
End Sub

StandardModule: basMain

Sub DialogAufruf()
   frmCaller.Show
End Sub