folgender Code schmeisst mir den Fehler 400 raus:
Sub Aufschlag()
Dim A As Object
Dim rowNr As Long
Dim rng As Range
Set rng = Range("F!:N!").Select
Set A = Range("S8").Select
For rowNr = 2 To ActiveSheet.rng.End(xlUp).Row
If ActiveCell.rng.value = "X" Then
If ActiveCell.rng.value "X" Then
Set ActiveCell.FormulaR1C1 = "=RC[-6]+ A"
End If
End If
Next rowNr
End Sub
Der Code soll in einem vor gefilterten Bereich, alle Zellen die im Range kein "X" enthalten, berechnen : Zelle Spalte E aus der jeweiligen Zeile + immer Zelle S8 und den Wert in die leere Zelle ausgeben.
Wo ist der Fehler?
Vielen lieben Dank
Ines