Du gibst nicht auf was?
Sub main()
Call Gelb
Call Gelb1
End Sub
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) = Zelle.Offset(0,1) & "Test 1"
End If
Next
End Sub
Ist zwar ne Antwort auf Deine Frage, aber das Ergebnis wird Dir nicht gefallen ...mal sehen was Du damit anfängst :)
|