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

Performantere Platzierung von Formeln per VBA

Forumthread: Performantere Platzierung von Formeln per VBA

Performantere Platzierung von Formeln per VBA
16.04.2014 14:56:02
Formeln
Hallo,
ich suche eine Variante, wie ich eine Formel per VBA performanter platzieren kann. Aktuell nutze ich folgendes Script:
Do While (Worksheets("Tabelle1").Cells(lastLine, 1) "")
Range("V" & lastLine).FormulaLocal = "=SVERWEIS(" & lastLine & "*1;KST!$A$1:$C$117;3;FALSCH)"
lastLine = lastLine + 1
Loop
Die Funktion bringt das gewünschte Ergebnis. Dabei ist die Bearbeitungszeit pro Zeile in der Schleife jedoch viel zu hoch. Wie kann ich dies noch performanter gestalten
Gruß Thorsten

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Während des PgmLaufs Berechnung auf ...
16.04.2014 15:21:52
Luc:-?
…manuell stellen und Bildschirmaktualisierung abschalten, Thorsten!
Gruß Luc :-?

AW: Während des PgmLaufs Berechnung auf ...
16.04.2014 15:29:05
Philipp
Hallo Thorsten,
mit FormulaR1C1 kannst Du das Ganze auch direkt über den kompletten Bereich ohne Schleife berechnen lassen.
Ohne mehr vom code zu sehen, ist es aber letzendlich schwierig zu sagen.
Gruß
Philipp

Anzeige
Formeln in Bereich eintragen
16.04.2014 19:51:33
Erich
Hi Thorsten,
Philipps Anregung habe ich mal ansatzweise umgesetzt: 

Option Explicit
Sub Thorsten()
Dim lastLine As Long, lngAnz As Long
lastLine = 1
' lngAnz kann vermutlich auch geschickter ermittelt werden
Do While Worksheets("Tabelle1").Cells(lastLine + lngAnz, 1)  ""
lngAnz = lngAnz + 1
Loop
Range("V" & lastLine).Resize(lngAnz).FormulaLocal = _
"=SVERWEIS(ZEILE(A" & lastLine & ");KST!$A$1:$C$117;3;FALSCH)"
End Sub
Die Schleife zur Ermittlung von lngAnz ist vermutlich auch überflüssig. Genaueres kann man so wohl nicht sagen.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: Formeln in Bereich eintragen
17.04.2014 09:26:07
Klaus
Hallo Erich (und Thorsten und Phillip),
.end(xldown) springt zur nächsten leeren Zelle. Funktioniert natürlich nur, wenn die Zelle wirklich leer ist und nicht per Formel auf ="" gesetzt wurde.
Sub Thorsten()
Dim lastLine As Long, lngAnz As Long
lastLine = 1
lngAnz = Cells(lastLine, 1).End(xlDown).Row
Range("V" & lastLine).Resize(lngAnz).FormulaLocal = _
"=SVERWEIS(ZEILE(A" & lastLine & ");KST!$A$1:$C$117;3;FALSCH)"
End Sub
oder noch kürzer: 
Sub Thorsten()
Const lastLine As Long = 1
Range("V" & lastLine).Resize(Cells(lastLine, 1).End(xlDown).Row).FormulaLocal = _
"=SVERWEIS(ZEILE(A" & lastLine & ");KST!$A$1:$C$117;3;FALSCH)"
End Sub

Hat natürlich den Nachteil, wenn man mal ausversehen LastLine bereits auf die letzte Zeile gesetzt hat, wird bis Zeile 1048576 ausgefüllt (und Excel crasht sehr warscheinlich). Auf 5000 Zeilen (Wert aus der Luft gegriffen) begrenzt:
Sub Thorsten()
Const lastLine As Long = 1
If Not Cells(lastLine, 1).End(xlDown).Row > 5000 Then
Range("V" & lastLine).Resize(Cells(lastLine, 1).End(xlDown).Row).FormulaLocal = _
"=SVERWEIS(ZEILE(A" & lastLine & ");KST!$A$1:$C$117;3;FALSCH)"
End If
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: Performantere Platzierung von Formeln per VBA
16.04.2014 22:21:11
Formeln
Hallo,
als Ansatz: 
With Sheets("tabelle1")
.Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Offset(, 21).FormulaR1C1 = _
"=vlookup(row()-1,KST!r1c1:r117c3,0)"
End With
Gruß
Rudi

CROSSPOSTING
17.04.2014 11:08:34
Erich
Hi zusammen,
wir können - in Unkenntnis der vorliegenden Daten und der konkreten Anforderungen - hier nur trefflich spekulieren
oder abwarten, ob sich Thorsten hier oder im MOF mal zu den Vorschlägen äußert...
http://www.ms-office-forum.net/forum/showthread.php?t=308518
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: CROSSPOSTING
17.04.2014 13:55:15
Thorsten
Hallo,
ich habe jetzt noch von anderer Seite den Hinweis bekommen einfach die Autoberechnung zu deaktivieren und das Ganze manuell zu berechnen.
Gruß Thorsten
;

Forumthreads zu verwandten Themen

Formel verkürzen --> zu lange Speicherzeit
Albin

Hallo
Meine Formel funktioniert gut, aber da die Formel sehr lang ist und ich sie in viele Zeilen kopiert habe, dauert das Speichern einer Tabelle 15 Minuten! Ich will aber 30 solche Tabellen anfertigen, das heisst ich würde dann immer mehrere Stunden warten bis das Ding gesichert ist! Das...
13.08.2008 13:10:00
Thread-ID: 1001509
16 Beiträge
Hilfe beim anpassen einer Formel
Josef_T

Guten Tag zusammen,
möchte unten stehende Formel so abändern, dass alle Werte in M3:M400 summiert werden, solange in
in N3:N400 oder O3:O400 keine Zahl drin steht, die größer 0 ist.
Wenn in N3:N400 oder O3:O400 eine Zahl größer 0 steht, werden diese nach M3:M400 übertragen. Diese
14.08.2008 13:54:45
Thread-ID: 1001851
5 Beiträge
Hyperlink Formel auf Gültigkeit prüfen
zapultin

Hallo Forum!
Ich verwende die Hyperlinkformel in Excel. Nun möchte ich gerne wissen, ob der berechnete Hyperlink funktioniert (es kann nämlich sein, daß die Datei, auf die gelinkt wird noch nicht existiert).
Wie kriege ich das OHNE ein VBA Makro hin? Gibt es gar keine Möglichkeit dies z...
15.08.2008 15:49:14
Thread-ID: 1002228
3 Beiträge
Anzeige
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Nach Gruppe Formel anpassen
Ilka

Die Spalte % Anteil soll innerhalb der jeweiligen Gruppe berechnet werden. Jede einzelne Gruppe ist immer 100%. Die Gruppen sind jedoch unterschiedlich groß (mal 3 Zeilen, mal 5 Zeilen).
Die Formel =B6/$B$17 muß ich in der nächsten Gruppe wieder manuell anpassen. Da die Tabelle noch bis in...
26.08.2008 09:57:28
Thread-ID: 1004695
5 Beiträge
Problem mit Matrixformel
Jens

Hallo liebes Forum!
Hab ein kleines Problem mit einer Matrixformel.
Es geht um Folgendes: In Blatt 1 stehen Daten in einem spaltenförmigen Bereich (nx1-Vektor), manche Zellen davon sind leer. In Blatt 2 möchte ich einen Bezug auf diese Daten in einem zeilenförmigen Bereich setzen; dazu...
27.08.2008 16:53:15
Thread-ID: 1005143
3 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Problem mit SVERWEIS (Arrayformel)
Henner

Hi Forum,
ich möchte ein SVerweis mit mehreren Suchergebnissen anlegen. Wenn ich den ganzen Salat innerhalb einer Tabelle anlege funktioniert es einwandfrei. Jetzt möchte ich allerdings in einer anderen Tabelle ("kundendatenbank") suchen. Dafür habe ich mir die A-Formel so umgebaut:
=WE...
12.09.2008 19:12:31
Thread-ID: 1009440
5 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige