Problem mit SVERWEIS, die mit VBA eingefügt wird
14.01.2005 12:57:29
Oliver
ich komm wieder mal nicht weiter. Ich übergebe mit nachfolgendem Code aus einer UserForm und dort aus ComboBox1 den ausgewählten Wert und lasse mir dann drei SVERWEIS Formeln in die Zellen daneben schreiben.
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Zeile = Sheets("Anlagendaten Hausstationen"). _
Range("E503").End(xlUp).Offset(1, 0).Row
Cells(Zeile, 1) = ComboBox1
Cells(Zeile, 2) = _
"=VLOOKUP(RC1,'Hilfstabelle TD1 Karten'!R1C1:R550C7,3,FALSE)"
Cells(Zeile, 3) = _
"=VLOOKUP(RC1,'Hilfstabelle TD1 Karten'!R1C1:R550C7,3,FALSE)"
Cells(Zeile, 4) = _
"=VLOOKUP(RC1,'Hilfstabelle TD1 Karten'!R1C1:R550C7,3,FALSE)"
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Unload Me
End Sub
Die SVERWEIS Formel die in die Spalten geschrieben werden sind folgende
=SVERWEIS($A250;'Hilfstabelle TD1 Karten'!$A$1:$G$550;3;FALSCH)
=SVERWEIS($A250;'Hilfstabelle TD1 Karten'!$A$1:$G$550;3;FALSCH)
=SVERWEIS($A250;'Hilfstabelle TD1 Karten'!$A$1:$G$550;3;FALSCH)
Allerdings wird mir erst, wenn ich einmal in Zelle A250 geklickt und mit Enter bestätigt habe, das Ergebnis der SVERWEIS Formeln angezeigt. Vorher steht dort #NV. Nun meine Frage, warum ist das so und wie bekomme ich sofort die durch die SVERWEIS Formel gefundenen Begriffe?
Für Eure Hilfe schon mal besten Dank.
Gruß,
Oliver