Thema Datum  Von Nutzer Rating
Antwort
18.05.2016 10:56:37 R3sul
NotSolved
Blau Makro auslösen wenn Tabellenblatt verschoben wird
 18.05.2016 11:34:50 RPP63
NotSolved
18.05.2016 11:35:57 Gast41196
NotSolved
18.05.2016 11:55:45 R3sul
NotSolved
18.05.2016 12:10:44 R3sul
NotSolved
18.05.2016 12:57:31 RPP63
NotSolved

Ansicht des Beitrags:
Von:
RPP63		 Datum:
18.05.2016 11:34:50		 Views:
904		 Rating:
     
Antwort:
  Ja
Thema:
Makro auslösen wenn Tabellenblatt verschoben wird

Moin!

Das Verschieben einer Tabelle löst ein _Calculate aus.

Jetzt könntest Du die Position Deines Sheets (also seinen Index) in einer globalen Variable speichern und im _Calculate überprüfen, ob sich die Position geändert hat.

Als Beispiel:

<span style='font-style:italic; margin-left:36px; color:#008000; font-weight:bold;'>Microsoft Excel Objekt Tabelle2</span><pre style='border:thin solid #000000; padding:12px 24px; margin-left:12px; color:#000000'><span style='color:#0000EE'>Option</span> <span style='color:#0000EE'>Explicit</span> &#10;<span style='color:#0000EE'>Dim</span> Position <span style='color:#0000EE'>As</span> <span style='color:#0000EE'>Integer</span> &#10; &#10;<span style='color:#0000EE'>Private</span> <span style='color:#0000EE'>Sub</span> Worksheet_Activate() &#10;Position = Me.Index &#10;<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span> &#10; &#10;<span style='color:#0000EE'>Private</span> <span style='color:#0000EE'>Sub</span> Worksheet_Calculate() &#10;<span style='color:#0000EE'>If</span> Me.Index &lt;&gt; Position <span style='color:#0000EE'>Then</span> &#10;   MsgBox Me.Name & <span style='color:#FF0000'>&quot; wurde verschoben!&quot;</span> &#10;   Position = Me.Index &#10;<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>If</span> &#10;<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span> &#10; </pre><br>

Gruß Ralf

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
18.05.2016 10:56:37 R3sul
NotSolved
Blau Makro auslösen wenn Tabellenblatt verschoben wird
 18.05.2016 11:34:50 RPP63
NotSolved
18.05.2016 11:35:57 Gast41196
NotSolved
18.05.2016 11:55:45 R3sul
NotSolved
18.05.2016 12:10:44 R3sul
NotSolved
18.05.2016 12:57:31 RPP63
NotSolved