das Benutzen der Variable x ist in Deinem Fall eigentlich ein Umweg, da sie nicht benötigt wird. Einfacher geht es, wenn Du den Zähler direkt in die Schleife einbaust:
For
y = 1
To
lngZeilen
If
table.Cells(y, 1).Value
Like
"frankreic*"
Or
table.Cells(y, 1).Value
Like
"Frankreic*"
And
Not
table.Cells(y, 2) =
""
Then
Range("C2"
).Value = Range(
"C2"
).Value + 1
End
If
Next
y
Die Zelle C2 zählt jetzt bei jedem Durchlauf, in dem die Bedingungen zutrafen, um 1 hoch. Probier es einfach mal aus.
Um darüber hinaus erkennen zu können, in welchen Zeilen die Bedingungen zutreffen, kannst Du es noch erweitern:
For
y = 1
To
lngZeilen
If
table.Cells(y, 1).Value
Like
"frankreic*"
Or
table.Cells(y, 1).Value
Like
"Frankreic*"
And
Not
table.Cells(y, 2) =
""
Then
Cells(y, 4) = 1
Range("C2"
).Value = Range(
"C2"
).Value + 1
End
If
Next
y
Dieser Code schreibt nun zusätzlich in Spalte 4 der entsprechenden Zeile den Wert "1". Diesen kannst Du dann ja zum Beispiel noch über "Format --> Bedingte Formatierung" herausstellen und rot färben oder so.