ich brauche mal wieder Euere Hilfe bei einem VBA Code.
Dieser Code addiert mir die Summe in Spalte L & M wenn in Spalte D der gleiche Wert steht.
Kann man diesen so erweitern, das er das nur tut wenn Spalte D der gleiche Wert und in Spalte E der Text Cash&Carry steht?
Sub Addieren()
Dim Lrow As Long, X As Long, LastId, LastRow As Long
With ThisWorkbook.Sheets("RV")
Lrow = .Cells(.Rows.Count, "D").End(xlUp).Row
LastRow = 2
LastId = .Range("D2")
For X = 3 To Lrow
If X > Lrow Then Exit For
If LastId = .Range("D" & X) Then
.Range("L" & LastRow) = .Range("L" & LastRow) + .Range("L" & X)
.Range("M" & LastRow) = .Range("M" & LastRow) + .Range("M" & X)
.Rows(X).Delete Shift:=xlUp
Lrow = Lrow - 1
X = X - 1
Else
LastRow = X
LastId = .Range("D" & X)
End If
Next
End With
End Sub
Vielen Dank