Prüfen von Werten und Ersetzen von Text durch Bedingung

[Kalk]

Hallo,

PHP-Code:

    lr = Cells(Rows.Count, "A").End(xlUp).Row 


Das Ergebnis hier ist lrr = 8.

Die 7777777 in Spalte F steht in 9.

Das funktioniert.

PHP-Code:

   lr = Cells(Rows.Count, "A").End(xlUp).Row

    
  For i = 8 To lr
    
If .Cells(i, 2).Value Like "Top" Then
.Cells(i, 3).Value = "Int"

    jr = Cells(Rows.Count, "F").End(xlUp).Row
  
  For j = 8 To jr