AW: 2 Zellen vergleichen und Werte in Folgen summieren
Piet
Hallo Rene
nach meiner Ansicht reicht es wenn du diesen Code in ein Modul kopierst und laufen laesst.
Am besten über einen CommandButton, KEIN AktiveX Steuerelement. Dem normalen Button kannst du das Makro direkt zuweisen!
mfg Piet
Sub Spalte_F_addieren()
Dim AC As Range, lz1 As Long, gSum As Long
'LastZell in Spalt A suchen
lz1 = Cells(Rows.Count, 1).End(xlUp).Row
'Schleife zum vergleichen von D mit E
For Each AC In Range("D3:D" & lz1)
If AC.Cells(1, 1) = AC.Cells(2, 1) And _
AC.Cells(1, 2) = AC.Cells(2, 2) Then
gSum = gSum + AC.Cells(1, 3)
Else
gSum = gSum + CInt(AC.Cells(1, 3))
AC.Cells(1, 4) = gSum
gSum = 0
End If
Next AC
End Sub