wenn ich in der Spalte I2:I500 ein doppelclick mache soll sich eine ComboBox öffnen. Wie kann man das machen?
Gruß Thomas
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 9 Then 'spalte i
If ActiveCell.Row > 1 And ActiveCell.Row < 501 Then
'das passiert jetzt, wenn einer in dem zellbereich i2 bis i500 doppelt klickt
'jetzt kommts drauf an, wo die kombobox sein soll, das
'liess sich aus der fragestellung halt nicht interpretieren.
Application.StatusBar = Time
Stop
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$J$2" Then Application.Run "UserFormAnzeigen"
End Sub