Index im VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim loLetzte As Long With Worksheets("Import") loLetzte = .Cells(.Rows.Count, "D").End(xlUp).Row .Range(.Cells(5, "P"), .Cells(loLetzte, "P")).FormulaLocal = _ "=INDEX(Tabelle1;VERGLEICH(Import!$F5;Tabelle1[LieferantN];0);SPALTE(Tabelle1[Wert1])- _ SPALTE(Tabelle1[Lieferant])+1)" .Range(.Cells(5, "Q"), .Cells(loLetzte, "Q")).FormulaLocal = _ "=INDEX(Tabelle1;VERGLEICH(Import!$F5;Tabelle1[LieferantN];0);SPALTE(Tabelle1[Wert2])- _ SPALTE(Tabelle1[Lieferant])+1)" End With Den Zeilenumbruch in den beiden Formeln bitte wieder raus machen, wurde von der Forensoftware _ eingefügt. Gruß Werner End Sub

Sub Test() Dim loLetzte As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationAutomatic With Worksheets("Import") loLetzte = .Cells(.Rows.Count, "D").End(xlUp).Row .Range(.Cells(5, "P"), .Cells(loLetzte, "P")).FormulaLocal = _ "=INDEX(Tabelle1;VERGLEICH(Import!$F5;Tabelle1[LieferantN];0);SPALTE(Tabelle1[Wert1])- _ SPALTE(Tabelle1[Lieferant])+1)" .Range(.Cells(5, "Q"), .Cells(loLetzte, "Q")).FormulaLocal = _ "=INDEX(Tabelle1;VERGLEICH(Import!$F5;Tabelle1[LieferantN];0);SPALTE(Tabelle1[Wert2])- _ SPALTE(Tabelle1[Lieferant])+1)" .Range(.Cells(5, "P"), .Cells(loLetzte, "Q")).Value = .Range(.Cells(5, "P"), .Cells( _ loLetzte, "Q")).Value End With Application.Calculation = xlCalculationAutomatic End Sub

Hi
wenn was mit Formeln gut berechnet werden kann, ist es auch per VBA meistens eine gute Lösung, die Formeln in die Zellen zu schreiben und ggf die Formelergebnisse durch die Werte zu ersetzen.
will man rein in VBA berechnen und dabei schneller sein als die Formellösung, wird es meistens etwas aufwendiger, weil die Berechnung zunächst in einem Array durchführen sollte um dann das Ergebnis in einem Schritt in die Zellen zurück zu schreiben, und man muss öfters mal auf fortgeschrittene Programmiertechniken wie das Dictionary-Objekt zurückgreifen, um schneller zu sein als Formellösungen.
insbesondere wenn Funktionen wie SVerweis und Index+Vergleich verwendet werden, hat man bei dem Lösungsweg "Formel per Makro" einein einfachen Stellhebel, um die Geschwindigkeit dramatisch zu verbessern:
- Liste sortieren und dann SVerweis mit 4. Parameter = WAHR bzw Vergleich mit 3. Parameter = 1 verwenden, die bei großen Listen um Welten schneller sind ihre Varianten für unsortierte Listen. eine derartige schnelle Suche in sortierten Listen ist derzeit in VBA noch nicht implementiert und kann nur über diese beiden Funktionen genutzt werden (bzw in VBA dann über Worksheetfuncition...)
Gruß Daniel

…Adrian,
aber das ist dann die reine Fkt mit ihren ursprünglichen Einschränkungen bei allen Argumenten außer ihrem ersten. Möglicherweise ist dir das deshalb nicht empfohlen worden, denn in Xl wdn Fmln noch vom FmlText-Interpreter behandelt und ggf rekursiert, was man in VBA selber pgmmieren muss.
Allerdings kannst du die Fml mal in US-Original-Notation mit der vbFkt/-Methode Evaluate berechnen lassen. Die bezieht auch den FmlText-Interpreter zumindest teilweise ein und liefert dann gleich einen Wert, den du ins Blatt als solchen übernehmen kannst. Allerdings klappt das, besonders im Zusammenhang mit INDEX, nicht immer.
Morhn, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread