besteht die Möglichkeit das Makro so umzubauen, dass die Zellen in J nicht mit dem SVERWEIS gefüllt werden wenn Sie schon einen Inhalt haben?
Vorab vielen Dank.
LG
Sascha
Sub datum_prod()
' datum_prod Makro
Columns("J:J").Select
Selection.ClearContents
Range("J1").Select
ActiveCell.FormulaR1C1 = "in Produktion"
Range("J2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-9],prod!C[-9]:C[-8],2,FALSE)),"""",VLOOKUP(RC[-9],prod!C[-9]:C[ _
-8],2,FALSE))"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J50000")
Range("J2:J50000").Select
Range("J2").Select
End Sub