1

2

3

4

5

6

7

8

9

10

If Target.Count = 1 Then

    Range("B4") = Target.Row   'Zeilenummer eintragen

    Range("B5") = Cells(Target.Row, 4).Value  'Wert aus aktueller Zeile in Splate D

    if Range("B6").FormulaLocal = "" then   'Prüfung ob Formel vorhanden

        Range("B6").FormulaLocal = "=WENNFEHLER(VERGLEICH(B$5;INDIREKT(""'""&$B3&""'!$B$1:$B$999999"");0);0)"

    end if

 Else

    Range("B4") = 0

    Range("B5") = 0

 End If