Dank euch habe ich folgende Index-Vergleich Prozedur geschrieben:
Sub InbexVorher()
Sheets("Auszug_vorher").Select
Dim rngFund As range
Dim rngNAV As range
Dim rngTYP As range
Dim j As Integer 'Zeile
Dim i As Integer 'Spalte
Dim x As Variant
Set rngFund = Sheets("Auszug_nachher").range("B:G")
Set rngNAV = Sheets("Auszug_nachher").range("B:B")
Set rngTYP = Sheets("Auszug_nachher").range("B1") 'Problem
Vergleich = Application.WorksheetFunction.Match(rngTYP, rngNAV, 0) 'Problem
x = Application.WorksheetFunction.Index(rngFund, Vergleich, 6) 'Problem
Sheets("Auszug_nachher").range("A1").Value = x 'Problem
End Sub
Problem:
Dieser INDEX VERGLEICH rechnet mir X als Ergebnis und gibt mir X in der Zelle A1 aber meine Tabelle hat 200000 Datensätze. Ich möchte gerne, dass die VBA bei jede Zeile meiner Tabelle die Berechnung wiederholt und die Ergebnisse in der Spalte A:A zurückgibt.
qwasi bei nächste rngTYP (B2 statt B1), nächste Ergebis X (A2 statt A1) usw...
hat jemand eine Idee, wie ich es hinkriegen kann?
Ich bedanke euch recht herzlich!
Beste Grüße
Shahed