Makro soll sich auf 2 Spalten weniger beziehen
18.01.2019 13:52:57
Jenny
ich nutze unten stehendes Makro,
es prüft ob in 2 aufeinanderfolgenden Zeilen A und B identisch sind, addiert dann die Zahlen die in diesen Zeilen stehen und löscht dann eine der Zeilen.
Mein Problem ist jetzt, besteht jetzt der Inhalt von Spalte A oder B selbst aus einer Zahl werden auch diese addiert. Kann man die Spalten A und B von der Addition ausnehmen?
Danke
Jenny
Sub zusammenfassen()
Dim z As Long
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
.Sort key1:=.Cells(1, 1), order1:=xlAscending, key2:=.Cells(1, 2), order2:=xlAscending, _
Header:=xlYes
For z = .Rows.Count To 2 Step -1
If .Cells(z, 1) = .Cells(z - 1, 1) Then
If .Cells(z, 2) = .Cells(z - 1, 2) Then
.Rows(z).Copy
.Rows(z - 1).PasteSpecial xlPasteValues, operation:=xlAdd
End If
End If
Next
.RemoveDuplicates Array(1, 2), xlYes
End With
End Sub
Anzeige