Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SVerweis vs Vlookup

SVerweis vs Vlookup
02.07.2017 15:33:49
Jan
Hallo zusammen,
ich habe 2 Tabellen mit jeweils ca. 20000 Zeilen. Ich möchte gerne Daten in der ersten Tabelle aus der zweiten ergänzen.
Ich habe es mittels VBA so gelöst:
table1 = Worksheets(1).Range("AF2:AF20069")
table2 = Worksheets(2).Range("A2:G29835")
Index_Target = 2
For Each cl In table1
Worksheets(1).Cells(Index_Target, 6) = Application.WorksheetFunction.VLookup(cl,table2, 7, False)
Index_Target = Index_Target + 1
Next cl
Das Ganze macht auch was es soll, nur sehr langsam. Es dauert etliche Minuten.
Wenn ich jetzt das Selbe mit einem SVerweis mache, dauert das nur wenige Sekunden.
Kann mir jemand sagen, warum das so ist, bzw. was ich falsch mache?
Vom Gefühl her würde ich ja sagen, müsste das beides ähnlich lange dauern.
Danke schonmal für eure Mühe
Jan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SVerweis vs Vlookup
02.07.2017 15:38:36
Hajo_Zi
Hallo Jan,
ich glaube das sind 2 unterschiedliche Sachen.
Mit Code trägst Du den Wert ein und bei jedem Wert muss in die Tabelle geschaut werden.
Beim anderen trägst Du nur die Formel ein.
Machst Du das auch in VBA ohne For Next geht es auch schneller. Nur mal meine Vermutung.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Anzeige
AW: SVerweis vs Vlookup
02.07.2017 20:30:56
Werner
Hallo Jan,
versuch es mal so. Dabei wird die SVERWEIS-Formel in einem Rutsch in den kompletten Bereich eingetragen und dann die Formel durch ihre Werte ersetzt.
Public Sub SVerweis()
Dim loLetzteBlatt1 As Long
Dim loLetzteBlatt2 As Long
Dim table1 As Range
Dim table2 As String
With Worksheets(1)
'## letzte belegte Zeile Blatt 1, Spalte AF (32)
loLetzteBlatt1 = .Cells(.Rows.Count, 32).End(xlUp).Row
'## Bereich definieren von F2 bis F letzte belegte Zeile
Set table1 = .Range(.Cells(2, 6), .Cells(loLetzteBlatt1, 6))
End With
With Worksheets(2)
'## letzte belegte Zeile Blatt 2, Spalte A (1)
loLetzteBlatt2 = .Cells(.Rows.Count, 1).End(xlUp).Row
'## Bereich A2 bis G letzte belegte Zeile in Variable schreiben
table2 = .Range(.Cells(2, 1), .Cells(loLetzteBlatt2, 7)).Address
End With
'## SVERWEIS-Formel in den Bereich table1 schreiben
table1.FormulaLocal = "=SVERWEIS(AF2;Tabelle2!" & table2 & ";7;FALSCH)"
'## Formel durch Werte ersetzen
table1.Value = table1.Value
End Sub
Gruß Werner
Anzeige
Feedback ist wohl ein Fremdwort. o.w.T.
08.07.2017 01:42:30
Werner
AW: Feedback ist wohl ein Fremdwort. o.w.T.
08.07.2017 09:56:30
Jan
Hallo,
Erstmal Danke für die Vorschläge.
Leider hatte ich noch keine Zeit sie auszuprobieren.
Ich hoffe das ich es in den nächsten Tagen testen kann und werde dann auf jeden Fall ein Feedback dazu geben.
Danke
Jan

301 Forumthreads zu ähnlichen Themen

VLOOKUP nicht vorhandene Datei
chrdohmen

Hallo Zusammen,
habe ein kleines Problem beim Erstellen eines VLOOKUP mittels VBA.
Hintergrund: Ich habe in einer Jahresdatei zwölf Spalten Jan. bis Dez.. Jeder Monat soll mittels SVERWEIS auf eine Monatsdatei zugreifen. Den benötigten SVERWEIS habe ich, dieser funktioniert auch einwan...
29.09.2008 08:18:20
Thread-ID: 1013017
2 Beiträge
Anzeige
Vlookup anpassung
Karel

Hallo Forum,
versuchen vergeblich diesese Makro anzupassen, habe ich leztze Woche von Reinhardt erhalten und Funktioniert auch einwandfrei, aber wass muss ich machen wenn Suchwert nicht im Spalte D aber in Spalte E steht. Klick X bleibt im Spalte C
Code:
Option Explicit
Private...
01.11.2008 17:44:09
Thread-ID: 1021046
8 Beiträge
Vlookup
WOP

Hallo alle Zusammen,
ich habe ein Problem mit Vlookup.
In meinem Makro werden die Daten aus allen Worksheet ausgelesen. Falls kein Wert über Vlookup gefunden werden sollte, wird der Wert des vorherigen Excel-Sheets kopiert. (ohne, dass ich dies will)
Noch ein Kleines Bsp.
Suchwe...
01.12.2008 20:47:00
Thread-ID: 1029353
7 Beiträge
Anzeige
vlookup
Timmy

Hallo Freune des Excel-Sports;-)
ich habe folgende Frage!
Ich habe eine Datei mit ca. 40000 Artikelnummern und habe fuer die Beschreibung ein "vlookup" gestartet. Excel holte sich die zugehoerige Artikelbeschreibung dann aus einer Datei in einem anderen Ordner.
Das klappt auch, jedo...
29.01.2009 14:23:39
Thread-ID: 1045014
5 Beiträge
Namen ersetzen und vlookup
Timmy

Liebe Excler,
anbei habe ich eine Datei angehaengt. Diese wird mein Problem verdeutlichen:
https://www.herber.de/bbs/user/59734.xls
Vielen Dank fuer eure Muehen!!
Viele Gruesse
Timmy
24.02.2009 15:46:51
Thread-ID: 1053566
3 Beiträge
Vlookup mit benanntem Bereich
BorisHendrik

Hallo,
ich suche schon den ganzen Morgen für ein Problem, bei dem mir vielleicht / hoffentlich einer von Euch helfen kann.
Es geht um eine Vlookup / SVerweis Formel, als TableArray / Matrix möchte ich eine benannten Bereich verwenden. Also so:
=sverweis(a1; MeinBereich; 2; 0)
Im...
26.02.2009 13:51:31
Thread-ID: 1054369
3 Beiträge
Formel zurueckgeben mit Vlookup
Thomas

Hallo,
ich habe ein kleines Problem mit Vlookup.
Und zwar moechte ich gerne anstelle des Werts in der Zelle die Formel die in der Zelle steht zurueckgeben lassen. Wie ist das moeglich?
Mein aktueller Code sieht so aus:
For Each wks In ActiveWorkbook.Worksheets
If wks.Name =...
23.03.2009 03:37:48
Thread-ID: 1062759
5 Beiträge
VLookup wird nicht erkannt
Werner

VBA-Level: befriedigend
Hallo Freunde,
bei folgender CodeZeile bekomme ich immer eine Fehlermeldung (es soll der Wert in Spalte 5 des
Worksheets "BeispielSheet" ermittelt werden, wenn in Spalte A dessen Wert numerisch "1900"
betraegt.) Excel teilt mit, dass es "VLookUp" nicht ke...
02.04.2009 09:22:02
Thread-ID: 1066196
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
9
7
6
2
4
2
2
4
4
1
16
16
2
5
2
2
7
3
3
4
5
5
7
2