Worksheet-Change Event

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rCell As Range If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Application.EnableEvents = False For Each rCell In Intersect(Target, Range("A1:A10")) rCell.Offset(10) = 0 Next rCell Application.EnableEvents = True End If End Sub

Hallo Hansueli,
Mit den überflüssigen Variablen hast du insofern schon Recht, ich hätte auch statt z und s direkt Target.Row und Target.Column nehmen können, aber das sind doch nur Nanosekunden an Rechenzeit.
Ebenso ist es besser, mit "For Each" und "Intersect" zu arbeiten, da ja der User einen ganzen Block einfügen könnte.
Aber "Application.EnableEvents = False" finde ich immer noch überflüssig, da der Code sich nicht selbst aufrufen kann, da jede vom Makro getätigte Änderung zwar, wie jede Zelländerung, das Event auslöst, aber durch das "IF .." sofort wieder den Code verlässt, weil die geänderte Zelle nicht den Bedingungen entspricht.
Ich habe mal aus Jux deinen und meinen Code getestet und 250.000 Änderungen in A1 generiert.
Deiner braucht dafür 28,46 sec und mein erster Code 21,79 sec.
Dieser (umgeschrieben für multiple Änderungen):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell
For Each cell In Target
If cell.Column  1 Or cell.Row > 10 Then Exit Sub
Cells(cell.Row + 10, cell.Column) = 0
Next
End Sub

braucht 23,6 sec.
Wenn der Code durch das Aus- und Wiedereinschalten der Events nicht schneller läuft, als mit eingeschalteten Events , macht es keinen Sinn, sie abzuschalten, auch wenn dies der Lehrbuchmeinung widerspricht oder in deinen Augen schlechter Programmierstil sein mag.
Gruß
Onur

Dass du wieder dein wahres Niveau zeigst, und assozial und beleidigend wirst, hätte ich eigentlich schon bei deinem letzten Beitrag erwartet und hatte mich gewundert, warum du plötzlich "freundlich" bist.
Aber offensichtlich bist du ja ein Excel-Gott, dessen Wort Gesetz ist und du bist der Einzige, der so "komplizierte" Begriffe wie Event-Triggerung und "rekursiv" versteht und glaubst wahrscheinlich, mit einem IQ von 120 wäre man ein Genie.
Wahrscheinlich würdest du in der obigen Datei auch noch im ganzen Code stur alle Zeilen heraussuchen, die in Zellen schreiben, die nicht zwischen A1 und A10 liegen, und eine Zeile vorher die Events abschalten und danach wieder einschalten, damit sie bloss kein Change_Event auslösen, weil: Du hast es ja so gelernt.
Wie du eigentlich wissen solltest, sind die Codes, die man hier postet, NUR FÜR DIESEN EINEN FALL gedacht, und nicht allgemein für alle Worksheet_Change_Events, das hat hier keiner behauptet.
Danke, daß ich so weiter machen DARF, zu gütig von Euer Gnaden.
Ich wäre Dir dankbar, wenn du mich in Zukunft in Ruhe lassen könntest mit deinen Standpunkten.
Wenn du schon zitierst, dann bitte richtig:
Der Horizont vieler Menschen ist wie ein Kreis mit Radius Null. Und das nennen sie dann ihren Standpunkt (Albert Einstein)
Er sagte ebenfalls:
Wenn einer mit Vergnügen zu einer Musik in Reih und Glied marschieren kann, dann hat er sein großes Gehirn nur aus Irrtum bekommen, da für ihn das Rückenmark schon völlig genügen würde.
Geniale Menschen sind selten ordentlich, Ordentliche selten genial.
Es ist schwieriger, eine vorgefaßte Meinung zu zertrümmern als ein Atom.
Gruß
Onur

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

105 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Worksheet-Change Event

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

105 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread