Erweitern Bereich nach Wert suchen

Question

Ich versuche, den gefundenen Bereich zu erweitern, um einen Wert in mehrere Zellen innerhalb der Zeile einzugeben und kann die entsprechende Lösung nicht finden. Neuere zu VBA so kahl mit mir:

Dim C as Range 
Dim SrchRng  
Set SrchRng = ActiveSheet.Range("W1", ActiveSheet.Range("W65536").End(xlUp)) 
Do 
    Set c = SrchRng.Find("X", LookIn:=xlValues) 
    If Not c Is Nothing Then c.Value = "X" 
Loop While Not c Is Nothing 

In diesem Beispiel fand die einzelne Zelle wird auf „X“ geändert werden. Ich möchte das auf mehrere Zellen innerhalb dieser Zeile erweitern, so dass "X" in den Spalten T bis W der gefundenen Zeile erscheint.

Answer 1

Dies funktioniert:

If Not c Is Nothing Then Range("T:W").Rows(c.Row).Value = "X" 

Answer 2

Man könnte es wie folgt tun:

If Not c Is Nothing Then 
    c.Value = "x" 
    ActiveSheet.Range("T" & c.Row & ":W" & c.Row) = "x" 
End If