ich habe in einem tabellenblattdrei verschiedene change befehle.
wie kann ich es erreichen das beim code aufruf
"Application.EnableEvents = False"
nur dieser code gestoppt wird.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Z1 = Selection.Row
Set eingbereich = Range("A2:o20600")
eingbereich.Interior.ColorIndex = xlNone
If Application.Intersect(Selection, eingbereich) Is Nothing Then Exit Sub
Range(Cells(Z1, 2), Cells(Z1, 15)).Interior.ColorIndex = 4 'gelb 36
End Sub
diese beiden sollen weiter laufen.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("b2")) Is Nothing Then
' If Target.Address = "b4" Then
Range("B65536").FormulaR1C1 = "=NOW()"
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, _
Cancel As Boolean)
Dim strDir As String
Cancel = True
If Target.Column <> 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
strDir = Dir(Target.Value)
usw.
gruss
peter