Thema Datum  Von Nutzer Rating
Antwort
13.05.2020 11:38:45 Fritz
NotSolved
Blau Custom Events Sheet-übergreifend (Event Handling)
 13.05.2020 15:15:54 Gast17771
Solved
13.05.2020 15:37:06 Gast17771
NotSolved
14.05.2020 11:20:33 Gast12026
NotSolved

Ansicht des Beitrags:
Von:
Gast17771		 Datum:
13.05.2020 15:15:54		 Views:
701		 Rating:
     
Antwort:
 Nein
Thema:
Custom Events Sheet-übergreifend (Event Handling)

Hallo,

da fehlt noch das Setzen also Zuweisen Deines Tabellenobjekts zu der Objektvariablen Deines auszulösenden Ereignisses mit dem gleichem Objektnamen.

Das ist jetzt in Deinem Bsp. nat. etwas rudimentär und konstruiert...aber ok...

Code In Tabelle1:

Option Explicit

Public Event fire(ByVal arg As String)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Tabelle2.Sender Is Nothing Then Set Tabelle2.Sender = Me
RaiseEvent fire(Target.Address)
End Sub

Code In Tabelle2:

Option Explicit

Private WithEvents mSender As Tabelle1

Private Sub mSender_fire(ByVal arg As String)
Debug.Print arg
End Sub

Friend Property Get Sender() As Tabelle1
Set Sender = mSender
End Property

Friend Property Set Sender(ByRef probjWorksheet As Tabelle1)
Set mSender = probjWorksheet
End Property

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:



  • 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.05.2020 11:38:45 Fritz
NotSolved
Blau Custom Events Sheet-übergreifend (Event Handling)
 13.05.2020 15:15:54 Gast17771
Solved
13.05.2020 15:37:06 Gast17771
NotSolved
14.05.2020 11:20:33 Gast12026
NotSolved