Hallo VB-Profis,

ich hoffe ihr könnt mir bei meinem Problem helfen ;)....

ich habe eine Tabelle in Excel mit mehreren Spalten. Ich möchte nun, dass in einer bestimmte Zelle immer um 1 erhöht wird sobald eine Bedingung zutrifft.

Hier mal das, was ich versucht habe:

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

'Eine Schleife, die beide Spalten auf Bedingung überprüft, falls true dann soll es eine 1 bei W2 eintragen

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