|
Hallo,
wie wird denn die Zelle eingefaerbt??? Manuell von verschiedenen Usern? Dann wird es naemlich schwierig, weil man nicht sicher sein kann, dass jeder das gleiche gelb verwendet. Es gibt nicht nur ein gelb sondern verschiedene Farbtoene.
Wenn es wirklich immer das selbe gelb ist z.B. Interior.Color RGB(255, 255, 0) dann kannst du diese Schleife verwenden, um alle Zellen im Bereich auf die Farbe zu pruefen (Tabellenname und Bereich eventuell anpassen):
Option Explicit
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, 22) = "Test" 'Spalte A + 22 Spalten ist Spalte W
End If
Next
End Sub
Gruss Torsten
|