Dim table As Worksheet, x As Long, y As Long, lngZeilen As Long
Set table = Worksheets("Tabelle1")
lngZeilen = table.Cells(table.Rows.Count, 1).End(xlUp).Row
x = 1
For y = 1 To lngZeilen
If table.Cells(y, 12) Like "" And table.Cells(y, 6).Value Like "Frankreich*" Then
Range("W2").Value = "1"
x = x + 1
End If
Next y
End Sub
Mein Problem liegt darin, dass nur der Wert in W2 immer nur überschrieben wird und nicht addiert wird.
Würde mich freuen, wenn ich ein wenig Unterstützung bekommen würde :)...Schon mal Danke im Voraus!
Gruß Sino