|
Hallo,
bei der Hitze jetzt ungetestet, aber probier mal so:
Code in das Arbeitsmappenmodul:
Option Explicit
Private Sub Workbook_Activate()
If ActiveSheet Is Tabelle1 Then _
If TypeOf Selection Is Excel.Range Then _
If Not Intersect(Selection, Range(Columns(8), Columns(Columns.Count))) Is Nothing Then _
Call Application.OnKey(Key:="^c", Procedure:="Warnung") '// TabBlatt anpassen....!!
End Sub
Private Sub Workbook_Deactivate()
Call Application.OnKey(Key:="^c")
End Sub
Code in das Tabellenblattmodul:
Option Explicit
Private Sub Worksheet_Activate()
If TypeOf Selection Is Excel.Range Then _
If Not Intersect(Selection, Range(Columns(8), Columns(Columns.Count))) Is Nothing Then _
Call Application.OnKey(Key:="^c", Procedure:="Warnung")
End Sub
Private Sub Worksheet_Deactivate()
Call Application.OnKey(Key:="^c")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Selection, Range(Columns(8), Columns(Columns.Count))) Is Nothing Then
Call Application.OnKey(Key:="^c", Procedure:="Warnung")
Else
Call Application.OnKey(Key:="^c")
End If
End Sub
Gruß,
|