Hunderte von Formeln = langsam -> Bessere Lösung?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das wäre eine Mögliche Lösung.
Formeln per VBA einfügen, dann Kopieren und als Wert einfügen.
Ist dann sinnvoll, wenn die Werte nur zu bestimmten Zeitpunkten aktualisiert werden müssen.
Allerdings sollte man auch mal genauer auf das Formelwerk schauen.
SVerweise werden beispielsweise deutlich schneller ausgeführt, wenn man die Suchmatrix (2. Parameter) aufsteigend sortiert und man den SVerweis mit 4. Parameter = Wahr verwenden kann.
Verwendet man viele SVerweise mit gleichem Suchbegriff und gleicher Suchmatrix, kann es sinnvoll sein in einer Hilfsspalte die Zeilennummer der Fundstelle in einer Hilfsspalte zu berechnen und dann die SVerweise durch Index und die Referenz auf die Zeilennummer zu ersetzen.
das ist auch sinnvoll, wenn man mit VBA arbeitet und die Formeln durch Werte ersetzt.
Schließlich ist es ja gut, wenn das Makro nur Bruchteile von Sekunden rechnet.
Außerdem kann man dann die Hilfsspalten wieder löschen und die Sortierungen wieder rückgängig machen, falls diese in den Quelldaten nicht dauerhaft vorhanden sein sollen.
Gruß Daniel

Sub DeinCode() Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten Application.Calculation = xlCalculationManual 'automat.Berechnung ausschalten '***Deine Anweisungen*** Application.Calculation = xlCalculationAutomatic 'automat.Berechnung einschalten Application.ScreenUpdating = True 'Bildschirmaktualisierung einschalten End Sub

Sub vba_sverweis() [D2:D10] = WorksheetFunction.VLookup([A3:A10], Sheets("Tabelle2").[A2:B18], 2, False) ' nachfolgender Code ersetzt #NV mit leer 'On Error Resume Next 'falls mal keine Fehler sind '[D2:D10].SpecialCells(xlCellTypeConstants, 16).ClearContents ' On Error GoTo 0 End Sub

Hi Chris,
ich bin mir nicht sicher aber müsste nicht der zweite Teil nach VLookup angepasst werden?
Im Prinzip soll der SVerweis folgendes machen:
Ergebnis des Sverweises soll ab D2 bis dorthin stehen, wo in Spalte A (dem Parameter) noch was drin steht.
Parameter 1 (Suche): Spalte A2 bis A8000
Parameter 2 (Suchmatrix): A:B
Parameter 3 (auszuwerfender Wert): 2
Parameter 4: Falsch
Das mit den in den nur sichtbaren Zellen war Blödsinn von mir. Der SVerweis soll komplett von D2 bis D? durchlaufen.
Wenn ich den Code von dir wie folgt einfüge erhalte ich eine Fehlermeldung: "Das Element mit dem angegebenen Namen wurde nicht gefunden".

Sub vba_sverweis()
Range("D2:D8000" & Rows.Count).SpecialCells(xlVisible).SpecialCells(xlCellTypeConstants) =  _
WorksheetFunction.VLookup([A2:A8000], Sheets("Tabelle2").[A:B], 2, False)
End Sub

Danke schon mal und Grüße
Marcel

Beliebteste Forumthreads (12 Monate)

Hunderte von Formeln = langsam -> Bessere Lösung?

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread