Gruppe
Ereignis
Problem
Bei Doppelklick im Bereich A1:A10 soll eine UserForm aufgerufen und die aufrufende Zelle dort genannt werden.
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