Wenn Funktion in VBA schreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim Zelle As Range With Worksheets("Tabelle_1") For x = 2 To i Set Zelle = .Range("O" & i) If .Range("A" & i).Value 0 Then If .Range("M" & i).Value 0 Then Zelle.Value = 0 Else If .Range("L" & i).Value

Hallo Paul,
Die Illusion mit VBA-Code schneller zu sein, wie mit Standardformeln ist eine verbreitete Meinung bei XL-Anfänger. Es gibt extrem wenig Ausnahmen im Bereich von Matrixformeln die mit VBA u.U. schneller sind. Sehr oft sind mit anderen Mitteln einfacher Verbesserungen möglich. Z.B. das Aufbrechen komplexer Formeln (insb. Matrix) in einfache Einzelformeln in Hilfsspalten und das Weiterrechnen mit den Resultaten dieser Hilfsspalten oder das Überarbeiten der Formeln auf das Nötigste.
Bei deiner Formel:

=WENN(A20;WENN(M20;0;WENN(L2&ltHEUTE()=WAHR;1;2));"")

Ist z.B. das =WAHR völlig überflüssig bzw. verlängert die Berechnungszeit.¨
Zudem könnte der volatile Teil HEUTE() z.B. in einer einzigen Zelle stehen und in den restlichen Formeln, die das heutige Datum referenzieren, mit dieser (absoluten) Zelladresse ersetzt werden.
Merke:
VBA ist in 99% aller Fälle wesentlich langsamer als Formeln!
Das Verkürzen von Formeln auf das absolute Minimum bringt immer noch mehr als jegliche VBA Versuche!
Gruess Hansueli

Hi
ich würde das so programmieren, wenn du die Werte in den Zellen haben willst und nicht die Formel:

With Worksheets("Tabelle_1").Range(Cells(2, 15), Cells(i, 15))
.FormulaLocal = "=WENN(A2  0;WENN(M2  0;0;WENN(L2

die Schleife in VBA ist deswegen so langsam, weil Excel bei jedem Einfügen eines Wertes in das Tabellenblatt ein paar Aktionen ausführen muss, das wären unteranderem:
- prüfen, ob in Excel Formeln vorhanden sind, die sich auf diese Zelle(n) beziehen und neu berechnet werden müssen, wenn ja, dies auch machen.
- prüfen ob bedingte Formatierungen vorhanden sind und ggf anpassen
- Bildschirm neu aufbauen.
- ...
Deswegen sollte man versuchen, die Anzahl der Zellzugriffe auf das Tabellenblatt soweit wie möglich zu reduzieren, wieviele Zellen bei einem Zugriff gleichzeitig geändert werden, ist zum Grossteil unerheblich, entscheidend ist die Anzahl der Zugriffe.
In meinem Beispiel hast du maximal 2 schreibende Zugriffe auf das Blatt, beim Einfügen der Formel und beim Einfügen der Werte.
wenn du auf die Formeln verzichen willst und trotzdem in VBA genauso schnell sein willst, wird die Programmierung aufwendiger.
du müsstest so vorgehen:
- für die Berechnung benötigte Werte in ein Array kopieren
- ein Ergebnisarray erstellen
- in einer Schleife über die Arrays laufen, die Berechnung durchführen und das Ergebnis ins Ergebnisarray eintragen
- das Ergebnisarray in die Tabelle zurückschreiben.
kurzum: solange sich die Aufgabe relativ einfach mit Formeln lösen lässt, ist die VBA+Formelvariante deutlich einfacher als eine gleichschnelle reine VBA-Lösung.
(und wer schon mal komplexen Code im Einzelstep getestet hat, wird generell versuchen, soweit wie möglich ohne Schleifen auszukommen)
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn Funktion in VBA schreiben

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread