|
Hallo,
ich versuche gerade mehrere Doubleklick Events auszuführen, aber irgendwie funktioniert nur der erste. Bei dem zweiten passiert garnichts. Kann mir jemand helfen ? Es sollen da noch viele mehr hinzukommen (P8 mit O8, usw.) !!! Vielleicht kann man das anders lösen.
Wer kann helfen ?
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
Select Case target
Case target
If ActiveSheet.Range("P6").Text > "0" Then
If Intersect(target, Range("O6")) Is Nothing Then Exit Sub
With target
.Value = IIf(.Value = "ü", "", "ü")
Cancel = True
End With
End If
Case target
If ActiveSheet.Range("P7").Text > "0" Then
If Intersect(target, Range("O7")) Is Nothing Then Exit Sub
With target
.Value = IIf(.Value = "ü", "", "ü")
Cancel = True
End With
End If
End Select
End Sub
|