Selbstentwickelte Funktionen bremsen Excel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Serie_ggNull_max(Bereich As Range, Optional GHA As String, Optional HeimGast As Range) As Byte 'ggNull heißt größer gleich Null (>=0), GHA heißt Gesamt oder Heim oder Auswärts Dim c As Range Dim Zähler As Byte, Maximal As Byte Dim Zeile As Integer, Spalte As Integer, Inhalt As String If Funktion_Stop = True Then Exit Function Zähler = 0 Maximal = 0 Zeile = 0 If GHA = "Heim" Or GHA = "Gast" Then Zeile = HeimGast.Row For Each c In Bereich Spalte = c.Column If Zeile > 0 Then Inhalt = Cells(Zeile, Spalte) Else Inhalt = "Gesamt" If Inhalt Like GHA Or Inhalt Like "Gesamt" Then If c.Value <> "" And c.Value <> "-" And c.Value > 0.1 Then Zähler = Zähler + 1 If c.Value <> "" And (c.Value Like "-" Or c.Value < 0.1) Then Zähler = 0 If Zähler > Maximal Then Maximal = Zähler End If Next Serie_ggNull_max = Maximal End Function

Hallo
Excel ist grundsätzlich langsam, wenn mit Objekten wie Range gearbeitet wird.
Wenn nur die Werte der Zellen für die Rechung der Zellen benötigt werden und nicht andere Eigenschaften wie Farben oder Formate, ist es besser, die Werte des Range-Objektes in eine Array-Variable zu kopieren und diese dann zu bearbeiten.
Das ist wesentlich schneller.
Das geht einfach mit
Dim ArrBereich
arrBereich = Bereich.value
somit hast du eine 2-dimensionale Feldvariable erzeugt, die genauso groß ist wie die Zeilen und Spalten vom Range-Objekt
um mit Schleifen zu arbeiten benötigst du noch den Befehel UBOUND(bereich,1), damit kannst du die Grösse des Arrays in der jeweiligen Dimension abfragen.
Wenn sämtliche Zellen eines Range-Objekets im Array bearbeitet werden sollen, sieht das dann so aus:


arrBereich = rngBereich.value
For z = 1 to ubound(arrBereich,1)
For s = 1 to Ubound(arrBereich,2)
Summe = Summe + arrBereich(z,s)
next s
next z

als Objekt-Schleife würde es so aussehen:

for each Zelle in rngBereich
Summe = Summe + Zelle.value
next

die For-Each-Schleife ist zwar etwas einfacher zu programmieren, aber wesentlich langsamer.
Das zurückschreiben von Werten geht genau so, allerdings müssen Array und Range-Objekt gleich gross sein.
Gruß, Daniel
ps. Option Exlpicit lässt man nie weg.

Hi,
Dass eine Variable bei der Kompilierung bekannt ist, ist ok. Das Inhalt diese Variable ist aber im voraus nicht bekannt. Sie muss auch zur Laufzeit gelesen werden.
Ausserdem bei einem
For i = LBound(arr1) to UBound(arr1)
werden die Werte LBound und UBound nur einmal bei der Initialisierung der For-Schleife ermittelt und nicht bei jedem Schleifendurchlauf. Es kostet daher unwesentlich mehr Zeit.
Beweis:


Sub Test()
Dim i%, j
j = 100
For i = 1 To j
j = j - 1
Next i
Debug.Print j
End Sub

Wenn das "To j" jedesmal neu ermittelt wäre, würde j am Ende 50 sein. Ist aber 0!: die Schleife lauft 100 mal. Unabhängig davon, wie j sich verändert.
Wenn ich dabei an diese interessante Diskution beitragen darf...
Viele Grüße
Yal

Beliebteste Forumthreads (12 Monate)

Selbstentwickelte Funktionen bremsen Excel

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread