Kopieren von Range-Varible löst Change-Event aus?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

On Error Resume Next Set MerkBer = ThisWorkbook.Names("Beispiel").RefersToRange If MerkBer Is Nothing Then MsgBox "Der 'Merkbereich' ist nicht definiert!", 16, "Fehler..." On Error GoTo 0 Exit Sub End If 'an andere Stelle If Not (MerkBer Is Nothing) Then Set Var2 = MerkBer Else MsgBox "Der 'Merkbereich' ist immer noch nicht definiert!", 16, "Fehler..." On Error GoTo 0 Exit Sub End If

Hi
mit Var2 = Var1
schreibst du die Werte aus dem Zellbereich Var1 in den Zellbereich Var2.
damit werden Zellwerte geändert und entsprechend das Change-Event ausgelöst
mit Set Var2 = Var1
weist du der Variablen Var2 den Zellbereich der Variablen Var2 zu.
Das hat auf die Zellen selbst keine Auswirkung und wird somit auch das Change-Event nicht auslösen.
generell gilt:
wenn du innerhalb des Change-Events Zellwerte veränderst, dann ruft sich das Change-Event selbst auf und du landest in einer Endlosschleife.
Vermeiden kann man die Endlosschleife so:

Application.EnableEvents = False
Hier die Befehle zum Ändern der Zellwerte
Application.EnableEvents = True

das Application.EnableEvents = True am Ende darf man nicht vergessen, weil die zuletzt gemachte Einstellung nach Makroende erhalten bleibt.
Sollte das ..=true ausbleiben, funktionieren danach deine Events nicht mehr und du musst den Befehl 1x im Direktfenster eingeben, um sie wieder zu aktivieren.
Gruß Daniel
uß Daniel

Das Ganze dient quasi als Input für eine Subroutine (keine eigene Prozedur). Die Variable Var2 wird in der Subroutine verwendet. Vorher muss ich aber nach einigen Kriterien (z.B. auf welchen Tabellenblatt befinde ich mich gerade?) diese Variable füllen und aus diversen Ranges den richtigen zuweisen.
Zuvor hatte ich das dann immer per expliziter Zuweisung gemacht. Da es mehrere Subroutinen gibt und ich vermutlich Performance-Einbußen auf diese Weise habe wollte ich zumindest nur einmal explizit zuweisen und danach dann nur noch die Variable übergeben.
Im Moment zögere ich aber auch wieder, da ich nun vorab alle in Frage kommenden Ranges einmal einlese, darunter auch welche die ich im konkreten Fall vielleicht gar nicht brauche. Dem gegenüber mag die explizite Zuweisung vielleicht etwas langsamer sein, aber ich kann vorab prüfen und lese dann nur die Ranges ein, die ich wirklich brauche. Am Ende ist der Unterschied vielleicht gar nicht merklich und ich vertue viel Zeit mit dieser Art von Quellcode-Optimierung...
Gruß
Kuttel
Gruß
Kuttel

Beliebteste Forumthreads (12 Monate)

Kopieren von Range-Varible löst Change-Event aus?

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Kopieren von Range-Varible löst Change-Event aus?

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread