Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

addieren

addieren
26.10.2018 11:52:13
Franky
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: addieren
26.10.2018 11:58:40
Matthias
Hallo
nicht getestet!
If LastId = .Range("D" & X) And .Range("E" & X) = "Cash&Carry" Then
Gruß Matthias
AW: addieren
26.10.2018 12:07:40
Franky
Hallo Matthias,
läüft super, vielen Dank für deine schnelle Hilfe.
Gruß Frank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige