Sub vollstaendigOE()
Dim wks As Excel.Worksheet: Set wks = ActiveSheet
Dim rng As Excel.Range: Set rng = wks.Range("A1:OE453")
With wks
If .AutoFilterMode Then .AutoFilterMode = False
rng.AutoFilter _
Field:=15, _
Criteria1:=vbYellow, _
Operator:=xlFilterCellColor
If Not Intersect(rng, rng.Offset(1, 0), rng.SpecialCells(xlCellTypeVisible)) Is Nothing Then
Intersect(rng, rng.Offset(1, 0), rng.SpecialCells(xlCellTypeVisible), rng.Columns(395)).Value = "Irgendein Text"
End If
.AutoFilterMode = False
End With
End Sub