Hallo
dein Vorhaben wird so nicht gelingen
du willst anscheinend das Ergebnis des SVerweises in der Zelle stehen haben
das kannst du über die Funktion Evaluate erreichen
die verlangt dann allerdings die englische Schreibweise der Formel
hier mal für Case is A
Case Is = "A"
TargetDate = Evaluate("=VLOOKUP(C" & RowNumber & ",'SE-Docs&Targets'!B4:X38,7,FALSE)")
Cells(RowNumber, 10).Value = TargetDate
beachte die englische Schreibweise
da muss anstatt dem Semikolon ein Komma stehen und englische Begriffe
da bekommst du ja bestimmt die anderen Formeln angepasst
MfG Tom
|