|
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
|