Thema Datum  Von Nutzer Rating
Antwort
Rot 2 mal Private Sub Worksheet
08.01.2021 15:44:16 Doris
NotSolved
08.01.2021 16:10:07 Gast36066
NotSolved
08.01.2021 16:19:15 Doris
NotSolved
08.01.2021 16:32:19 Gast25331
NotSolved
08.01.2021 16:33:08 Gast25331
NotSolved
08.01.2021 16:46:28 Doris
NotSolved
08.01.2021 16:57:56 Gast27710
NotSolved

Ansicht des Beitrags:
Von:
Doris
Datum:
08.01.2021 15:44:16
Views:
59
Rating: Antwort:
  Ja
Thema:
2 mal Private Sub Worksheet

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot 2 mal Private Sub Worksheet
08.01.2021 15:44:16 Doris
NotSolved
08.01.2021 16:10:07 Gast36066
NotSolved
08.01.2021 16:19:15 Doris
NotSolved
08.01.2021 16:32:19 Gast25331
NotSolved
08.01.2021 16:33:08 Gast25331
NotSolved
08.01.2021 16:46:28 Doris
NotSolved
08.01.2021 16:57:56 Gast27710
NotSolved