Office: SVerweis mit Variablen Angaben

Lisa135724 · 19. Mai 2015

Hallo Zusammen,

ich probiere seit einigen Stunden meinen Sverweis ans Laufen zu bringen. *mad.gif*
Das Problem ist, dass er sich auf ein Datenblatt bezieht in dem die Daten nicht untereinander geordnet sind sonder pro Firma nebeneinander.

Bisher bin ich mit meinem Code so weit:

Code:

Sub Makro5()
'
' Makro5 Makro
'
' Tastenkombination: Strg+l
'
Dim c, zahler, i As Integer
Dim DataRange As Range
Dim gesuchtesDatum As Date

Dim v As Worksheet
Set v = Sheets("DAX")
For i = 1 To 400
Sheets("DAX").Select
zahler = Cells(1000000, i).End(xlUp).Row
For c = 2 To 6576
Sheets("DAX").Select
Set DataRange = Range(Cells(2, i), Cells(zahler, i + 5))

Sheets("Tabelle1").Select

'Cells(c, i + 1).Value = Application.WorksheetFunction.VLookup(Cells(c, 1).Value, DataRange, 2)

With Tabelle1.Range(Tabelle1.Cells(2, 2), Tabelle1.Cells(6576, 2))
.FormulaLocal = "=VLookUp(RC2,DataRange,2,False)"
.Formula = .Value
End With
Next c
Next i

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Indexe sollten soweit eigentlich passen. Ich habe auch zwei Versuche drin, (kursiv und unterstrichen) die mich aber nicht weiter bringen.

Ich bin um jede Hilfe dankbar!!!*Smilie

Lisa

:)

Scorefun · 21. Mai 2015

Wie wäre es mit einer kleinen Beispieldatei, aus der ersichtlich wird, was wo wie gesucht werden soll?

GMG-CC · 21. Mai 2015

Moin Lisa,

VBA ist da etwas anders als andere Sprachen ...
Code:

Dim c, zahler, i As Integer
'heißt: Dim c as Variant, zahler as Variant, i As Integer
'und nicht: Dim c as Integer, zahler as Integer, i As Integer
'... was du wahrscheinlich erreichen wolltest
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lisa135724 · 21. Mai 2015

Hallo Zusammen,
Danke für die Rückmeldung!!

Hier die Datei. In Tabelle1 Möchte ich halt zum jeweiligen Datum die Werte Changes und PX für jede Firma (jewils eine Spalte pro Wert mit Firmenangabe) haben.
Die Werte stammen aus dem Blatt DAX. Dort sind für verschiedene Tage der letze Preis der DAX 30 Unternehmen aufgezeigt. Ich habe die Datei gekürzt, da sie über 800000 Einträge hat.

Vielen Dank im Voraus!
Lisa

Lisa135724 · 21. Mai 2015

Und hier noch einmal mit Makros..

Scorefun · 21. Mai 2015

Ich habe mal in Zeile 2 von Tabelle1 eine Zeile eingefügt und die Firmennamen (ohne Changes)
drunter gesetzt, sodaß die Daten in Zeile 3 anfangen

Formel in B3:
=WENNFEHLER(INDEX(DAX!$A$1:$L$895;AGGREGAT(15;6;ZEILE(DAX!$A$1:$A$895)/(DAX!$A$1:$A$895=Tabelle1!$A3);1);VERGLEICH(Tabelle1!B$2;DAX!$A$1:$L$1;0)+1);"")

Formel in C3:
=WENNFEHLER(INDEX(DAX!$A$1:$L$895;AGGREGAT(15;6;ZEILE(DAX!$A$1:$A$895)/(DAX!$A$1:$A$895=Tabelle1!$A3);1);VERGLEICH(Tabelle1!B$2;DAX!$A$1:$L$1;0)+2);"")

Die zwei kannst Du dann 1:1 nach D und E kopieren, und dann nach unten...(bei 800T+ Zeilen dürfte die Berechnung ne Weile dauern...;-)

Einziger Unterschied ist hier am Ende die Addition 1 bzw 2 für die Ergebnisspalte

Das Ganze als VBA Formel:

Code:

Range("B3").FormulaR1C1 = _
"=IFERROR(INDEX(DAX!R1C1:R895C12,AGGREGATE(15,6,ROW(DAX!R1C1:R895C1)/(DAX!R1C1:R895C1=Tabelle1!RC1),1),MATCH(Tabelle1!R2C,DAX!R1C1:R1C12,0)+1),"""")"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da müsstest Du jetzt nur noch Deine VBA-Schleife drum bauen...;-)

EDIT: Schade, da ist noch ein Denk-Fehler drin - weil die Formel sucht nur in Spalte A nach dem Datum...

Office: SVerweis mit Variablen Angaben

SVerweis mit Variablen Angaben

SVerweis mit Variablen Angaben

SVerweis mit Variablen Angaben

SVerweis mit Variablen Angaben - Similar Threads - SVerweis Variablen Angaben

SVERWEIS mit Range von bis funktioniert nicht?

SVERWEIS Variable als Suchkriterium

VLookup/Sverweis mit Variablen/Range

SVERWEIS mit variabler Ausgabe?

SVERWEIS variable Matrix??

Sverweis mit Liste und 2 Variablen.

sverweis über 2 variablen