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
|