Guten Tag,
wie lasse ich diese Funktionen gleichzeitig ausführen, sodas wenn beide Spalten Gelb sind auch beide Text in einer Zelle ausgegeben werden.
Gruß
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
|