Doppelklickmakro
24.08.2005 20:42:14
DT
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
With Target
If Range(.Address).Interior.ColorIndex = 4 Then
MsgBox " Auftrag bearbeiten ? ", vbYesNoCancel + vbInformation, ""
End If
End With
End Sub
Funktioniert soweit auch gut.
Nun kommt es aber häufiger vor das mehrere Zellen untereinander verbunden sind, und dann funktioiert das nicht mehr mit dem Doppelklick.
Kann mir jemand sagen warum das so ist? Und, wie stelle ich es an, dass es funktioniert?
Vielen Dank schon einmal im Voraus