WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)
-   -   vba-event (http://www.wcm.at/forum/showthread.php?t=230570)

chr 13.09.2008 15:12

vba-event
 
Hallo
Habe in Excel (mehrere) Rechtecke gezeichnet, möchte nun, dass ein Ereignis ausgelöst wird, wenn man ein Rechteck löscht

z.B.:
sub reeck ()
inputbox("Rechteck wurde gelöscht")
end sub

Und das soll gestartet werden, wenn ich ein Rechteck lösche.

Wie geht das?

lg
Chr

incubus 19.09.2008 06:45

bin zwar kein Spezialist, aber was mir gerade Einfällt währe, Du könntest über "Worksheet_Change" eine Veränderung am Sheet abfragen und dann z.b. mit "ActiveSheet.Shapes("Name des Rechtecks").Select" jedes Rechteck einzeln aufrufen versuchen, wenn eines nicht mehr da ist gibt es einen Fehler, den Fehler Abfangen "On Error GoTo dort_und_dorthin" und da kannst Du dann Dein Event starten.

incubus 19.09.2008 09:40

beispiel:

die Qbjekte heisen "Rechteck1...5"
die Schleife versucht die Rechtecke nacheinander zu aktivieren, wird eines nicht gefunden gibt es einen Fehler der wird abgefangen und mit eine MSG Box quittiert.

Code:


 
Dim Recht_name As String

Recht_nr = "1"

Do Until Recht_nr = "6"
    Recht_name = "Rechteck" & Recht_nr
 
    On Error GoTo Rechteck_weg
    Shapes(Recht_name).Select
   
    GoTo WEITER
Rechteck_weg:
    MsgBox Recht_name & " wurde gelöscht"
WEITER:
    Recht_nr = Recht_nr + 1
Loop



Alle Zeitangaben in WEZ +2. Es ist jetzt 06:25 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag