Guten Tag
Ich habe zwei Code für die Tabelle4 die sich nicht vertragen.
Ich habe noch nicht herausgefunden, wie ich diese zwei Scripts kompinieren kann damit diese auf der gleichen Tabelle ohne Fehler laufen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$5:$N$5" Then Navigation
If Target.Address = "$M$6:$N$6" Then Print
If Target.Address = "$M$7:$N$7" Then Send
If Target.Address = "$M$8:$N$8" Then Delete
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Jede Veränderung der Zelle D23 durch Eingabe von außen
'wird sofort rückgängig gemacht.
If Not (Application.Intersect(Target, Range("D23")) Is Nothing) Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Application.CutCopyMode = False
End If
End Sub
|