Summe bei doppelten Wert
27.05.2021 08:56:22
Tim
ich habe einen Code, der mir doppelte Werte in der Spalte A markieren soll, das funktioniert super.
In Spalte F soll er mir bei einem doppelten Wert, die Summe aus Spalte B-D eintragen.
Mit meinem Versuch es wie folgt zu machen, errechnet er zwar eine Summe, jedoch offensichtlich immer von dem Treffer zuvor. Zudem möchte ich die Summe gegen einen Vergleichswert prüfen, daran scheitere ich.
Wer kann mir dabei helfen, die richtige Summe zu bilden + bei einem doppelten Wert, die Summe gegen einen Vergleichswert zu prüfen!?
https://www.herber.de/bbs/user/146398.xlsm
Private Sub CommandButton1_Click()
Dim i As Long, Importwb As Workbook, Importbl As Worksheet
Set Importwb = ThisWorkbook
Set Importbl = Importwb.Worksheets(1)
Importliste = Importbl.Cells(Importbl.Rows.Count, 1).End(xlUp).Row
For i = Importliste To 1 Step -1
If Importbl.Cells(i, 1) = Importbl.Cells(i + 1, 1) Then
With Importbl.Range(Importbl.Cells(i, 1), Importbl.Cells(i + 1, 1))
.Font.Bold = True
.Font.ColorIndex = 3
End With
With Importbl.Range(Importbl.Cells(i, 6), Importbl.Cells(i + 1, 6))
.Value = Importbl.Cells(i + 1, 2) + Importbl.Cells(i + 1, 3) + Importbl.Cells(i + 1, 4) 'Summe
End With
End If
Next i
End Sub