Office: Selbstmord einer Klassen-Instanz auslösen

Hallo,

ich hab eine Klasse, die auf einen SelectionChange Event eines Arbeitsblatts reagiert.

Die Klasseninstanz soll sich nun bei Eintreten einer speziellen Situation selbst terminieren.

Ich weiß nur nicht, wie sowas geht.

bei einer Form geht es mit
unload me

Ausserhalb der Klasse würde ich die Klassen-Variable einfach auf nothing setzten

set myClass = nothing

aber wie geht sowas innerhalb der Instanz

set me = nothing
gibt ne Fehlermeldung
auch unload me will nicht klappen

ich verwende Excel 97

danke und Gruß
Thomas

:)

 

Hi Thomas,

als was ist bei dir myClass definiert - als Klasse selbst? Ich würde denken, du musst nicht die Klasse sondern das Array leeren, in welches du die Objekte aufgenommen hast.

 

ich hab ein Klassenmodul.
dieses instanziere ich in einem "normalen" (VBA-)Modul als zB:

VBA Modul Code:
Code:

Klassenmodul Code (Klasse "clMyClass")
Code:

Der Aufrufende Code bekommt nicht mit, dass das Abbruchkriterium der Klasse erreicht ist. Somit kann der die KlassenVariable nicht auf Nothing setzten

 

Hallo Thomas,

wie man eine Klasse sich selbst von "innen heraus" zerstören lassen kann, weiß ich auch nicht. Aber Du kannst zumindest die Verbindung zu den Events "kappen", indem Du vorgibst:
Code:

Dann läge sie allerdings noch als inaktive "Leiche" (welch morbides Vokabular...) im Speicherkeller.


Ist Dein Codebeispiel repräsentativ? Dann könntest Du ggf. auch die Klasse "DieseArbeitsmappe" nutzen und folgenden Code verwenden:
Code:

Eine "normale" Variable kann sich selbt "terminieren" - auch wenn das hier unsauber formuliert sein mag.

Grüße
EarlFred

 

Diese Leiche im Keller stört mich an anderer Stelle.

ich hab einen CommandButton, der die ganze routine Startet. Der dient allerdings auch dazu, sie manuell zu stoppen

Also der aufrufende Code lautet dann eher so:

Code:

Sorry, dass ich das nicht gleich erwähnt hatte. Somit würde die Leiche natürlich zu kuddelmuddel führen.

 

..mmmhh Hi EarlFred, ich kann' mir nicht verkneifen:

Inaktive Leiche?.. was ist dann eine Aktive Leiche -Zombie? *eek.gif*

schönen Tag noch! *Smilie

 

Ich hab einen Workaround, der aus der Instanz eine Prozedur im Modul aufruft, die dann die Instanz terminiert.

Nur finde ich das nicht so schön, da ja dann die Klasse immer von dem Modul abhängt.

In dem eine Fall hilft es, aber rein Prinzipiell würde mich schon interessieren, ob es auch aus der Instanz heraus geht (so wie aus einem Form ja auch)

 

Hallo Thomas,

Code:

Wie sieht das konkret aus?

Nochmal die Frage: Ist Dein Codebeispiel repräsentativ? Wenn ja, wäre in meinen Augen eine Klasse mit Tauben auf Spatzen geschossen (Futter für Steffen *wink.gif*) - siehe letzter Post. *wink.gif*
Wenn die Klasse nicht dynamisch verwendet wird und es eine 1:1 Beziehung wie im Beispiel gibt, reicht allein:
Code:

...sofern myClass als Public deklariert ist.

@Steffen:
Code:

Grüße
EarlFred

 

nunja, ich benötige eine Klasse um die Worksheet-Events abzufangen. Das kann ich auf Modulebene nicht.

Und ja, im meinem Beispiel gibt es glücklicherweise diesen 1:1 Beziehung, deswegen funktioniert auch mein Workaround (den ich jetzt gegen die andere Variante tauschen werde, da die doch schöner ist)

nur rein zum Verstehen, also hypothetisch, wenn ich in Zukunft eine Klasse habe, die diese 1:1 verbindung Modul:Klasse nicht erfüllt, gäbe es dafür auch eine Lösung?

 

Hi

kann es sein das Du versuchst

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub


nachzubauen?
oder was ist der Sinn dahinter

 

Ich erstelle ein Makro, dass mir die Zellen in der Reihenfolge des selektierens in eine zu ausgewählte Zielzelle (und alle darunter folgenden Zellen) einfügt.

Ich muß immer mal wieder Daten aus einer Tabelle in einer sich ändernden Reihenfolge in eine Zieltabelle kopieren.
mit dem ewigen [STR-C; Blattwechseln; Inhalte (Werte) Einfügen; Blatt zurück, nächsten Block auswählen ...] wird man blöd im Kopp und bekommt Krämpfe in der Hand (bis man selbst zum Zombie wird *wink.gif* ).
Nun wollt ich mir ein Makro schreiben, mit dem ich eine Kopierserie starten kann und ab dem Zeitpunkt alle selektierten Zellen in der entsprechenden Reihenfolge in mein zuvor selektiertes Ziel-Blatt schreiben lassen.

Das hab ich auch soweit zu meiner Zufriedenheit fertiggestellt.

Sheetselectionchange wollte ich nicht nachbauen, ich benötige den SelectionChange Event eines frei wählbaren Blattes.

Nur um das Event abzufangen, muß ich in meinem Makro auf Klassen zurückgreifen. Nun gibt es aber verschiedene Vorfälle, die zu einem Abbruch der Kopierprozedur führen sollen.
Das ist einmal das Betätigen des Start/Stop-Buttons, aber auch das erreichen der Maximalen Zeilenzahl in einem Excelblatt.
Ersteres wird vom Modul erkannt letzteres von der Klasse.

Wie schon geschrieben läuft es so, wie es jetzt ist, wie gewünscht. Nun bin ich zwischenzeitlich auf das Problem gestoßen, dass sich die Klasse selbst eliminieren müßte, was sie bisher aus meiner Sicht, nicht ohne externe Hilfe schafft.

Nur um etwas gelehrnt zu haben würde mich weiterhin interessieren, ob es doch geht. (Also ein Terminate Me, oder Set Me = nothing - das Object 'Me' steht mir aber leider nicht zur Verfügung)

 

Hi

aha *wink.gif*

ist das dann sowas in der Art

Code:

 

Interessante Kombination: Klassenunterstütztes Copy&Paste

Manchmal hilft es auch, über die verwendeten Strukturen nachzudenken, um Kopieren zu vereinfachen (zu automatisieren) oder gar ganz verzichtbar zu machen.

 

Hallo Thomas,

das ist vermutlich ein Beispiel dafür, dass nicht die letzten Details einer angewandten Methode interessant sind, sondern die zugrundeliegende Aufgabe und Herangehensweise grundlegend hinterfragt werden sollte.

Also wohl doch: Mit Spatzen auf Kanonen geschossen...? *wink.gif*

Grüße
EarlFred

 

nein *cool.gif*

Dein Makro fängt alle Zelle-Wechsel-Events der Makro-Mappe ab.

Mein Makro fängt die Zelle-Wechsel-Events eines Sheets einer fremden Mappe ab.