ich habe das nachfolgende Makro, dass einen Spaltenbereich ("F2:F65000") nach Begriffen absucht und die Zelle in dem der Begriff steht dann je Wert entsprechend formatiert.
Aktuell wird nur die eine Zelle, die den Begriff enthält formatiert. Ich möchte aber die Zellen mit einer definierten Anzahl in der Zeile der Zelle ebenso formatieren.
Option Explicit
Sub ColorLines()
Dim N, Zelle, W, F
W = Array("Steuer-/Regelgerät", "Steuer-/Regelkarte")
F = Array(16, 15)
For Each Zelle In Range("f2:f65000")
For N = 0 To UBound(W)
If Zelle = W(N) Then
Zelle.Interior.ColorIndex = F(N)
Exit For
End If
Next N
Next Zelle
End Sub
Kann mir bitte jemand beim Rest helfen?