Wie lege ich die Spalte in meiner VBA fest?

Question

For Each c In Range("A2:A157") 
    If (Left(c, 1) = "P" Or Left(c, 1) = "T") And IsNumeric(Right(c, 6)) And Len(c) >= 5 Then 
     c = "Found It" 'i know this overwrites the value 
    End If 
Next c 

Ich möchte auf der gleichen Zeile, aber Spalte E „Es gefunden“ schreiben

ich das nicht heraus kann.

Answer 1

Verwenden .Offset

For Each c In Activesheet.Range("A2:A157") 
    If (Left(c, 1) = "P" Or Left(c, 1) = "T") And IsNumeric(Right(c, 6)) And Len(c) >= 5 Then 
     c.Offset(,4) = "Found It" ' i know this overwrites the value 
    End If 
Next c 

Answer 2

Verwendung:

Range("E" & c.Row).Value = "Found It"