wie kann ich beim Doppelklick im Zellenbereich K12:K (ActiveSheet.UsedRange) das UserForm7 starten
und beim Doppelklick im Zellenbereich Q12:Q (ActiveSheet.UsedRange) das UserForm2 starten?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("K12:K" & ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row) _
) Is Nothing Then
UserForm7.Show
Cancel = True
End If
If Not Intersect(Target, Range("Q12:Q" & ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row) _
) Is Nothing Then
UserForm2.Show
Cancel = True
End If
End Sub
Schönen Gruß,
Andi