ich habe folgenden Code geschrieben, der mir die Zellen in Spalte A einfärbt, wenn das Keywort enthalten ist. Wie kann ich in den Code mit einbinden, dass z.B in der Zelle A5 das Keywort Plan eingefärbt wird und in der ganzen Zeile die Zellen A5 bis I5 verbunden (merge) werden.
Sub Farbe_Keywörter()
Dim Zelle As Range, Bereich As Range
Set Bereich = Range("A1:A10000") 'geht das eleganter ?
For Each Zelle In Bereich
Select Case Zelle.Value
Case "Plan":
Range("A:I").Merge ' ?
Zelle.Interior.ColorIndex = 47
Case "Manage":
Zelle.Interior.ColorIndex = 47
End Select
Next Zelle
End Sub
Vielen Dank im Voraus ! :)