Makro - bedingte Addition eines Wertes
12.05.2015 10:52:45
SaSei
Ich suche nach einem Makro, das in Spalte Q nur dann den Wert um eine bestimmte Anzahl erhöht (dieser Wert steht immer in A2), wenn in Spalte P ein "x" steht.
Folgender Code steht schon:
Sub ...()
lz = Cells(Rows.Count, 16).End(xlUp).Rows.Row //ermittelt die Länge der 16.ten Spalte (P)
For t = lz To 5 Step -1
If Cells(t, 16).Value = "x" Then
Range("A2").Select //hier steht der Wert, der addiert werden soll, z.B. 1
End If
Next t
End Sub
Mir fehlt also der Teil des Codes, der nun den Wert aus Zelle A2 auf alle Zellen in Spalte Q addiert, wo in Spalte P daneben ein "x" enthalten ist.
Vielen Dank für Eure Hilfe!