ich habe eine Frage zu folgendem Auszug aus einer VBA-Anweisung:
Private Sub CommandButton1_Click()
Dim lZeile As Long, i As Long
Dim Formeltext As String
'Stichtag
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
Formeltext = "='C:\Test\Reports\" & Year(Cells(i, 1)) & "_" & CStr(Format(Month(Cells(i, 1)), "00")) & "\" & _
CStr(Format(Day(Cells(i, 1)), "00")) & "\Werte\Werte.xls]Werte1'!$B$5"
Cells(i, 2).FormulaLocal = Formeltext
Next i
Im Prinzip wird hier ein Wert aus Feld B5 angezogen und zwar aus mehreren Dateien die den gleichen Namen tragen und unter verschiedenen Dateipfaden abgespeichert werden/wurden.
Nun meine Frage:
Ich möchte nicht explizit den Wert aus $B$5 anziehen, sondern nach einem bestimmten Namen in Spalte A suchen und dann 4 Spalten nach rechts springen und den Wert in dieser Zelle dann auslesen. In Excel würde man das ja über SVerweis oder Vergleich i. v. m. Index lösen. Wie aber in VBA?
Zusatzfrage: Falls der Name in Spalte A nicht vorhanden ist, sollte "0" übernommen werden!
Kann mir jemand helfen?
Gruß
Bernd