Aufgabe : Alle Zeilen nach dem Wert "2" UND der Farbe "gelb" durchsuchen. Wenn ein Treffer gefunden wurde , soll mir z.B.: die Zeile 6 in der Spalte des Treffers in eine Zeile geschreiben werden . Bei mehreren Treffern sollen diese untereinander stehen !
Sub Bereitschaft_auslesen_SE()
Worksheets("Bereitschaft_SE").Range("b3").Value = ActiveSheet.Name
For Spalte = 13 To 43
For Zeile = 21 To 46
With ActiveSheet.Cells(Zeile, Spalte)
Range(ActiveSheet.Cells(Zeile, Spalte).Address).Select
If .Value = "2" And .Interior.ColorIndex = 6 Then Worksheets("Bereitschaft_SE").Range("c9").Value = Cells(ActiveCell.Row, 11).Value
End With
Next Zeile
Next Spalte
End Sub