Anzeige
Archiv - Navigation
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

gehts auch schneller?

gehts auch schneller?
04.03.2003 15:56:18
Felix
Hallo EXCEL-Freunde,
habe mal eine Frage, geht mein folgender Code auch schneller?

Habe das Gefühl das die folgende Zeile im Code zu langsam ist.

Range("AZ61").Value = Erg / NotenAnzahl

Gibt es was schnelleres?

Gruß
Felix

Hier noch mein gesamter Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng, RaBereich As Range
Dim Erg As Byte
Dim NotenAnzahl As Byte

Set RaBereich = Range("C64:C68")

For Each rng In RaBereich
If rng <> "" Then NotenAnzahl = NotenAnzahl + 1
Next rng
Erg = Application.WorksheetFunction.Sum(Range("BE64:BE68"))
Range("AZ61").Value = Erg / NotenAnzahl
End Sub



2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: gehts auch schneller?
04.03.2003 16:17:56
Nepumuk

Hallo Felix,
dein Programm reagiert auf Änderungen in der Tabelle. Da das Programm aber eine Änderung in Zelle AZ61 vornimmt, ruft es sich selbst dadurch ein zweites mal auf. Du kanns das abschalten. An den Anfang deines Modules:

Application.EnableEvents = False

An das Ende des Modules:

Application.EnableEvents = True

Gruß
Nepumuk

Re: vielen Dank ...
04.03.2003 16:21:56
Felix

Hallo Nepumuk,

Super, vielen Dank. Das klappt.

Gruß und einen schönen Tag wünscht
Felix

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige