Sub Gelb()
Dim ws As Worksheet
Dim Zelle As Range, Bereich As Range
Set ws = ThisWorkbook.Sheets("Tabelle1")
Set Bereich = ws.Range("A1:A100")
For Each Zelle In Bereich
If Zelle.Interior.Color = RGB(255, 255, 0) Then
Zelle.Offset(0, 2) = "Test"
End If
Next
End Sub
Sub Gelb1()
Dim ws As Worksheet
Dim Zelle As Range, Bereich As Range
Set ws = ThisWorkbook.Sheets("Tabelle1")
Set Bereich = ws.Range("B1:B100")
For Each Zelle In Bereich
If Zelle.Interior.Color = RGB(255, 255, 0) Then
Zelle.Offset(0, 1) = "Test 1"
End If
Next
End Sub