Thema Datum  Von Nutzer Rating
Antwort
13.04.2018 09:26:47 Steffen
NotSolved
13.04.2018 09:49:21 Gast45075
NotSolved
13.04.2018 10:00:32 Gast91878
NotSolved
13.04.2018 10:04:00 Gast45075
NotSolved
13.04.2018 09:58:02 Gast25242
NotSolved
13.04.2018 10:03:18 Gast4832
NotSolved
13.04.2018 10:05:56 Gast45075
NotSolved
30.05.2018 10:58:41 Steffen
NotSolved
Rot Application.onKey
 30.05.2018 20:45:08 Gast91378
Solved
30.05.2018 20:48:34 Gast99199
Solved
07.06.2018 11:34:41 Steffen
NotSolved
31.05.2018 02:22:56 Gast47076
NotSolved

Ansicht des Beitrags:
Von:
Gast91378		 Datum:
30.05.2018 20:45:08		 Views:
740		 Rating:
     
Antwort:
 Nein
Thema:
Application.onKey

Hallo,

bei der Hitze jetzt ungetestet, aber probier mal so:

Code in das Arbeitsmappenmodul:

?
1
2
3
4
5
6
7
8
9
10
11
12
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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ß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.04.2018 09:26:47 Steffen
NotSolved
13.04.2018 09:49:21 Gast45075
NotSolved
13.04.2018 10:00:32 Gast91878
NotSolved
13.04.2018 10:04:00 Gast45075
NotSolved
13.04.2018 09:58:02 Gast25242
NotSolved
13.04.2018 10:03:18 Gast4832
NotSolved
13.04.2018 10:05:56 Gast45075
NotSolved
30.05.2018 10:58:41 Steffen
NotSolved
Rot Application.onKey
 30.05.2018 20:45:08 Gast91378
Solved
30.05.2018 20:48:34 Gast99199
Solved
07.06.2018 11:34:41 Steffen
NotSolved
31.05.2018 02:22:56 Gast47076
NotSolved