=WENN($C125="";"";WENN(ISTFEHLER(SVERWEIS($C125;Artikeln!$A$2:$F$49999;6;FALSCH));"";SVERWEIS($C125; Artikeln!$A$2:$F$49999;6;FALSCH)))
was verstehst du unter "ausblenden"?
' **********************************************************************
' Modul: Tabelle8 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error GoTo ErrExit
If Not Intersect(Target, Range("C3:C50000")) Is Nothing Then
Application.EnableEvents = False
For Each rng In Intersect(Target, Range("C3:C50000")).Cells
If rng <> "" Then
rng.Offset(0, 4).FormulaR1C1 = "=IF(RC3="""",""""," & _
"IF(ISERROR(VLOOKUP(RC3,Artikeln!R2C1:R49999C6,6,FALSE)),""""," & _
"VLOOKUP(RC3, Artikeln!R2C1:R49999C6,6,FALSE)))"
Else
rng.Offset(0, 4) = ""
End If
Next
End If
ErrExit:
Application.EnableEvents = True
End Sub