Option Explicit
Sub Schengb()
Dim wks As Worksheet: Set wks = ActiveSheet
With wks
If .AutoFilterMode Then .AutoFilterMode = False
.Range("A1:A100").AutoFilter _
Field:=1, _
Criteria1:=vbYellow, _
Operator:=xlFilterCellColor
If Not Intersect(wks.Range("A1:A100"), wks.Range("A1:A100").Offset(1, 0), wks.Range("A1:A100").SpecialCells(xlCellTypeVisible)) Is Nothing Then
Intersect(wks.Range("A1:A100"), wks.Range("A1:A100").Offset(1, 0), wks.Range("A1:A100").SpecialCells(xlCellTypeVisible)).Offset(0, 22).Value = "Irgendein Text"
End If
End With
End Sub