Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SVERWEIS / VLOOKUP mit variabler Matrixangabe

SVERWEIS / VLOOKUP mit variabler Matrixangabe
18.10.2004 09:28:34
Richard
Hallo zusammen,
in einer Schleife lasse ich i-mal einen SVERWEIS mit Hilfe von VLOOKUP durchführen. Nun möchte ich in Abhängikeit von der Zeilenzahl der Matrix den Matrixbereich (hier: R2C1:R1000C3 ) steuern können. Jeder Versuch mit Variablen oder übergebenen Range-Variablen scheiterte bisher, die VBA-Hilfe ist diesbezüglich sehr dürftig und verwirrend.
For I = 0 To E
ActiveCell.Offset(0, 0).Formula = "=VLOOKUP(RC[-1],R2C1:R1000C3,2,FALSE)"
DATA$ = ActiveCell.Offset(0, 0)
ActiveCell.Offset(0, 0).Value = DATA$
Next I
Herzlichen Dank im vorhinein!
Richard

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

Betreff
Datum
Anwender
Anzeige
AW: SVERWEIS / VLOOKUP mit variabler Matrixangabe
fritzm
Hallo Richard,
ganz habe ich zwar nicht verstanden, was du willst.
Aber wenn ich richtig liege, dass du die Startzeile der Matrix in Abhängigkeit vom Zeilenzähler I haben willst, dann so:
ActiveCell.formula = "=VLOOKUP(RC[-1],R" & I & "C1:R1000C3,2,FALSE)"
Noch ein Tipp: Der Ausdruck "Offset(0,0)" ist sinnlos, da weder ein Zeilen- noch ein Spaltenoffset benötigt wird. Also einfach weglassen. Ich könnte mir vorstellen, dass du auch hier, ausgehend von der aktiven Zelle, Zeilenweise nach unten willst, also:
ActiveCell.Offset(I, 0).formula = "=VLOOKUP(RC[-1],R" & i & "C1:R1000C3,2,FALSE)"
Aber bevor ich weiter rate, beschreibe mal dein Problem. In welche Zelle soll welche Formel mit welcher Matrix?
Fritz
Anzeige
AW: SVERWEIS / VLOOKUP mit variabler Matrixangabe
18.10.2004 10:54:17
Richard
Hallo Fritz,
vielen Dank, ich glaube, das Problem hast Du mir schon gelöst:
R" & I & "C1:R1000C3
Also zur Erklärung:
Tabelle1 enthält Datensätze mit Angaben wie:
Kundennummer : Kundenname : Ort: etc...
Tabelle2 soll enthalten: Kundennummer und Kundenname etc. sowie Artikel und Preis (z.Bsp.)
Per VLOOKUP soll in der Matrix von Tabelle1 nach dem Kriterium Kundennummer gesucht werden und in mehreren Spalten von Tabelle2 ausgegeben werden. Da aber die Größe von Tabelle 1 variabel ist (es kommen neue Kunden hinzu, die Zeilenanzahl wird größer) muß sich die Matrix von VLOOKUP automatisch anpassen. Daher will ich nicht die Anfangszeile anpassen (die ist immer A2, denn A1 sind die Spaltenüberschriften) sondern die letzte Zeile (hier: Zeile 1000 (R1000C3). Somit müßte die Formel lauten.
ActiveCell.formula = "=VLOOKUP(RC[-1],R2C1:R" & I & "C3,2,FALSE)"
Den Offset(0,0) verwende ich, um hintereinander Spalte1: Spalte2 :Spalte usw. füllen zu können (dementsprechend passe ich dann natürlich das Kriterium sowie den Spaltenverweis an.
Ich werde es gleich mal ausprobieren.
HERZLICHEN DANK !!!
Richard
Anzeige
AW: SVERWEIS / VLOOKUP mit variabler Matrixangabe
18.10.2004 10:45:17
Rolf
Hallo Richard,
versuch's mal mit folgendem Code

Sub daten_aus_definiertemBereich()
Dim suchbereich As Range
Dim listbereich As Range
Dim i As Long, n As Long
Set suchbereich = Range("A1:B100")
Set listbereich = ActiveCell
n = suchbereich.Rows.Count
For i = 1 To n
listbereich.Value = Application.VLookup(listbereich.Offset(0, -1), suchbereich, 2, False)
Set listbereich = listbereich.Offset(1, 0)
Next i
End Sub

Freundl.Grüße
Rolf
AW: SVERWEIS / VLOOKUP mit variabler Matrixangabe
18.10.2004 10:55:45
Richard
Hallo Rolf,
auch das werde ich gleich mal ausprobieren!
Danke und Gruß
Richard

309 Forumthreads zu ähnlichen Themen

Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Anzeige
Verweis auf andere Tabelle mit Variable
Ralf

Hallo zusammen,
ich benötige Hilfe.
Ich habe eine Übersichtsdatei in der
='G:\Werkstatt\Kunde Ordner\[Kalkulation 11.xls]Deckblatt'!$AA$53
immer wieder in ähnlicherweise vorkommt.
Ich möchte es mir vereinfachen und z.B. in Zelle A3 "Kalkulation 11" schreiben.
Und dann f...
25.03.2009 14:48:52
Thread-ID: 1063809
4 Beiträge
sverweis mit variable auf externe datei
Joni

Hi,
ich suche eine Lösung um mittels sverweis aus anderen Dateien/Tabellen Werte auszulösen. Die Schwierigkeit liegt darin, dass der Dateiname aus einer Zelle ausgelesen werden soll (der Pfad ist immer der gleiche). Die andere Datei ist nicht geöffnet und sollte dies wenn möglich auch nicht...
09.06.2009 23:34:03
Thread-ID: 1080301
4 Beiträge
Anzeige
SVerweis mit variablem Spaltenindexergebnis
Dirk

Hallo zusammen,
ich habe folgendes Problem:
Ich habe zwei Tabellen; in der einen stehen Namen und ein Suchkriterium und in der anderen sollen die Namen, die neben dem Suchkriterium aufgelistet sind übertragen werden.
Beispiel:
Spalte A_______Spalte B
__P1__________Müller
...
25.08.2009 10:38:59
Thread-ID: 1098346
5 Beiträge
Tabellenblätter um 1 erhöhen bzw. hochzählen
Mike

Hallo zusammen.
Ich hatte vor länger Zeit schon einmal angefragt...
www.herber.de/forum/archiv/1076to1080/t1076338.htm
...jedoch bis heute leider keinerlei Hilfe erhalten.
Bitte, kann mir keiner helfen? Ich bräuchte dringend Hilfe!
Vielen Dank im Voraus.
Gruß Mike
21.10.2009 23:47:21
Thread-ID: 1111214
3 Beiträge
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Wert in Zelle um 1 erhöhen
Daniel

Hallo,
kann mir jemand sagen wie der VBA Code aussehen muss für folgendes Problem?!
Also ich habe in Zelle sagen wir B200 einen Wert von 100. Nun möchte ich das per Makro bei Zelle B201 mit dem Wert 1 angefangen wird und in den darunterliegenden Zellen jeweils um 1 erhöht wird, also 1,2...
26.10.2009 12:35:35
Thread-ID: 1112187
12 Beiträge
Letzte belegte Zelle + 1
Walter

Hallo zusammen,
habe mal diese Makrozeilen erhalten.
Dim rngFind As Range
Set rngFind = Sheets("Haus").Columns(4).Find(What:="Whg1")
ActiveSheet.Cells(rngFind.Row, 1).Select
Ich möchte das jetzt ändern, komm leider nicht drauf auf such die letzte belegte Zelle
+ 1 d...
03.03.2010 15:26:55
Thread-ID: 1143032
3 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
6
3
3
3
4
4
2
4
11
2
6
7
5
2
6
2
5
5
1
3
6
15
2
16
1