Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1572to1576
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
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sverweis durch Vlookup ersetzen und in Schleife se

Sverweis durch Vlookup ersetzen und in Schleife se
06.08.2017 07:43:51
Thorsten
Hallo zusammen,
ich nutze aktuell ein VBA Script zur Erstellung eines Reportings. Dabei muss ich die Daten einer Tabelle mittels SVerweis auf Basis einer zweiten Tabelle vervollständigen. Leider ist die Variante mit dem SVverweis nicht sehr performant.
Ich habe schon VLookUp als Alternative gesehen. Wie kann ich nun SVerweis durch VLookUp ersetzen? Ich muss dabei aber von Zeile 2 diese Formel bis in letzte gefüllte Zeile mit Hilfe einer Schleife schreiben. Im Optimum sollte der Wert und nicht die Formel in die Zelle geschrieben werden.
lastLine = 2
Do While (Worksheets("Rohdaten").Cells(lastLine, 1) "")
Range("AA" & lastLine).FormulaLocal = "=SVERWEIS(D" & lastLine & ";Kunden!$A$1:$B$100000;2;Falsch)"
lastLine = lastLine + 1
Loop
Ich freue mich auf eine Lösung und vielen Dank vorab.
Gruß Thorsten

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

Betreff
Datum
Anwender
Anzeige
AW: Sverweis durch Vlookup ersetzen und in Schleife se
06.08.2017 07:57:52
ChrisL
Hi Thorsten
VlookUp ist die englische Schreibweise von Sverweis und damit identisch.
.FormulaLocal = "=SVERWEIS(D" & lastLine & ";Kunden!$A$1:$B$100000;2;Falsch)"
.Formula = "=VLOOKUP(D" & lastLine & ",Kunden!$A$1:$B$100000,2,False)"
Vorteil Formula: Es funktioniert Sprachunabhängig
Eine Variante ohne Schleife:
lastLine = Worksheets("Rohdaten").Cells(Rows.Count, 27).End(xlUp).Row
Worksheets("Rohdaten").Range("AA1:AA" & LastLine).Formula = _
.Formula = "=VLOOKUP(D1,Kunden!$A$1:$B$100000,2,False)"
cu
Chris
Anzeige
AW: Sverweis durch Vlookup ersetzen und in Schleife se
06.08.2017 07:58:36
ChrisL
Korrektur
lastLine = Worksheets("Rohdaten").Cells(Rows.Count, 27).End(xlUp).Row
Worksheets("Rohdaten").Range("AA1:AA" & LastLine).Formula = _
"=VLOOKUP(D1,Kunden!$A$1:$B$100000,2,False)"

Zusatz:
06.08.2017 08:19:11
RPP63
Wenn "Dein" langsamer SVerweis() kein #NA ausgibt, solltest Du "Kunden" aufsteigend sortieren und die SVerweis()-Variante mit WAHR nutzen.
Diese ist erheblich schneller!
Anzeige

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