Sverweis Suchwert als Variable
23.08.2006 14:12:20
Anton
ich möchte per sverweis nach einer vorher angelieferten Variable suchen.
Über eine Zelle als Krücke (siehe Code) funzt es.
Ich möchte aber ohne Krücke auskommen:
Also zB: ActiveCell.FormulaR1C1 = _
"=VLOOKUP("DateValue(Eingabe1)",'[Daten-Muster.xls]Tabelle1'!C1:C4,2,FALSE)"
Wer kann mir mit dem richtigen Code aushelfen?
Servus und Danke sagt
Anton
Sub Makro2()
Dim Datum As Date
Dim Eingabe1 As String
Eingabe1 = InputBox("Bitte geben Sie das Anfangs-Datum" & Chr(10) & "der Auswertung ein:" & Chr(10) & "(TT.MM.JJJJ)", "Datum 1:")
Sheets("Tabelle2").Select
Range("K2").Value = DateValue(Eingabe1)
Range("A2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[+10],'[Daten-Muster.xls]Tabelle1'!C1:C4,2,FALSE)"
Range("A3").Select
End Sub