SVERWEIS-Hilfe!
03.12.2005 10:52:51
Gérard
Aus einem Buch habe ich diese Zeilen geholt, aber irgendetwas ist falsch dabei. Kann jemand mir dabei helfen?
RAnge("A2:D6") ist mit Daten befüllt und in A17 ist ein Eintrag aus dem Range("A2:d6").
Danke für die Hinweise
Gérard
Sub TESTSVERWEIS()
Dim Zelle1 As Range
Dim Zelle2 As Range
Dim Ber1 As Range
Set Zelle1 = Range("b7")
Set Zelle2 = Range("a7")
Zelle1.Activate
Set Ber1 = Range("A1:A5")
Sheets("SVerweis").Activate
Range("b17").FormulaLocal= "SVERWEIS(A7;A2:D6;2;FALSCH)"
Range("c17").FormulaLocal = "A17&b17"
Range("D17").FormulaLocal = "SVERWEIS(C17;C2:d6;2;FALSCH)"
End Sub