vba-event

[chr]

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]

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]

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.

 
 
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