Mit dem letzten stümperhaften Code von mir incl. dem 'Entnullen' nach der Prozedur:
Code:
Sub Löschen()
Dim Wiederholungen1 As Long, Wiederholungen2 As Long
Application.ScreenUpdating = False
For Wiederholungen1 = 5 To Range("A65536").End(xlUp).Row
For Wiederholungen2 = 5 To Range("A65536").End(xlUp).Row
If Wiederholungen1 <> Wiederholungen2 Then
If Cells(Wiederholungen1, 1) = Cells(Wiederholungen2, 1) Then
Cells(Wiederholungen1, 2) = Cells(Wiederholungen1, 2) + Cells(Wiederholungen2, 2)
Cells(Wiederholungen1, 3) = Cells(Wiederholungen1, 3) + Cells(Wiederholungen2, 3)
Cells(Wiederholungen1, 4) = Cells(Wiederholungen1, 4) + Cells(Wiederholungen2, 4)
Cells(Wiederholungen1, 5) = Cells(Wiederholungen1, 5) + Cells(Wiederholungen2, 5)
Cells(Wiederholungen1, 6) = Cells(Wiederholungen1, 6) + Cells(Wiederholungen2, 6)
Cells(Wiederholungen1, 7) = Cells(Wiederholungen1, 7) + Cells(Wiederholungen2, 7)
Cells(Wiederholungen1, 8) = Cells(Wiederholungen1, 8) + Cells(Wiederholungen2, 8)
Cells(Wiederholungen1, 9) = Cells(Wiederholungen1, 9) + Cells(Wiederholungen2, 9)
Cells(Wiederholungen1, 10) = Cells(Wiederholungen1, 10) + Cells(Wiederholungen2, 10)
Cells(Wiederholungen1, 11) = Cells(Wiederholungen1, 11) + Cells(Wiederholungen2, 11)
Cells(Wiederholungen1, 12) = Cells(Wiederholungen1, 12) + Cells(Wiederholungen2, 12)
Cells(Wiederholungen1, 13) = Cells(Wiederholungen1, 13) + Cells(Wiederholungen2, 13)
Cells(Wiederholungen1, 14) = Cells(Wiederholungen1, 14) + Cells(Wiederholungen2, 14)
Cells(Wiederholungen1, 15) = Cells(Wiederholungen1, 15) + Cells(Wiederholungen2, 15)
Cells(Wiederholungen1, 16) = Cells(Wiederholungen1, 16) + Cells(Wiederholungen2, 16)
Cells(Wiederholungen1, 17) = Cells(Wiederholungen1, 17) + Cells(Wiederholungen2, 17)
Cells(Wiederholungen1, 18) = Cells(Wiederholungen1, 18) + Cells(Wiederholungen2, 18)
Cells(Wiederholungen1, 19) = Cells(Wiederholungen1, 19) + Cells(Wiederholungen2, 19)
Cells(Wiederholungen1, 20) = Cells(Wiederholungen1, 20) + Cells(Wiederholungen2, 20)
Cells(Wiederholungen1, 21) = Cells(Wiederholungen1, 21) + Cells(Wiederholungen2, 21)
Cells(Wiederholungen1, 22) = Cells(Wiederholungen1, 22) + Cells(Wiederholungen2, 22)
Cells(Wiederholungen1, 23) = Cells(Wiederholungen1, 23) + Cells(Wiederholungen2, 23)
Cells(Wiederholungen1, 24) = Cells(Wiederholungen1, 24) + Cells(Wiederholungen2, 24)
Cells(Wiederholungen1, 25) = Cells(Wiederholungen1, 25) + Cells(Wiederholungen2, 25)
Cells(Wiederholungen1, 26) = Cells(Wiederholungen1, 26) + Cells(Wiederholungen2, 26)
Cells(Wiederholungen1, 27) = Cells(Wiederholungen1, 27) + Cells(Wiederholungen2, 27)
Cells(Wiederholungen1, 28) = Cells(Wiederholungen1, 28) + Cells(Wiederholungen2, 28)
Cells(Wiederholungen1, 29) = Cells(Wiederholungen1, 29) + Cells(Wiederholungen2, 29)
Cells(Wiederholungen1, 30) = Cells(Wiederholungen1, 30) + Cells(Wiederholungen2, 30)
Cells(Wiederholungen1, 31) = Cells(Wiederholungen1, 31) + Cells(Wiederholungen2, 31)
Cells(Wiederholungen1, 32) = Cells(Wiederholungen1, 32) + Cells(Wiederholungen2, 32)
Cells(Wiederholungen1, 33) = Cells(Wiederholungen1, 33) + Cells(Wiederholungen2, 33)
Cells(Wiederholungen1, 34) = Cells(Wiederholungen1, 34) + Cells(Wiederholungen2, 34)
Cells(Wiederholungen1, 35) = Cells(Wiederholungen1, 35) + Cells(Wiederholungen2, 35)
Cells(Wiederholungen1, 36) = Cells(Wiederholungen1, 36) + Cells(Wiederholungen2, 36)
Cells(Wiederholungen1, 37) = Cells(Wiederholungen1, 37) + Cells(Wiederholungen2, 37)
Cells(Wiederholungen1, 38) = Cells(Wiederholungen1, 38) + Cells(Wiederholungen2, 38)
Cells(Wiederholungen1, 39) = Cells(Wiederholungen1, 39) + Cells(Wiederholungen2, 39)
Cells(Wiederholungen1, 40) = Cells(Wiederholungen1, 40) + Cells(Wiederholungen2, 40)
Cells(Wiederholungen1, 41) = Cells(Wiederholungen1, 41) + Cells(Wiederholungen2, 41)
Cells(Wiederholungen1, 42) = Cells(Wiederholungen1, 42) + Cells(Wiederholungen2, 42)
Cells(Wiederholungen1, 43) = Cells(Wiederholungen1, 43) + Cells(Wiederholungen2, 43)
Cells(Wiederholungen1, 44) = Cells(Wiederholungen1, 44) + Cells(Wiederholungen2, 44)
Cells(Wiederholungen1, 45) = Cells(Wiederholungen1, 45) + Cells(Wiederholungen2, 45)
Cells(Wiederholungen1, 46) = Cells(Wiederholungen1, 46) + Cells(Wiederholungen2, 46)
Cells(Wiederholungen1, 47) = Cells(Wiederholungen1, 47) + Cells(Wiederholungen2, 47)
Cells(Wiederholungen1, 48) = Cells(Wiederholungen1, 48) + Cells(Wiederholungen2, 48)
Cells(Wiederholungen1, 49) = Cells(Wiederholungen1, 49) + Cells(Wiederholungen2, 49)
Cells(Wiederholungen1, 50) = Cells(Wiederholungen1, 50) + Cells(Wiederholungen2, 50)
Cells(Wiederholungen1, 51) = Cells(Wiederholungen1, 51) + Cells(Wiederholungen2, 51)
Cells(Wiederholungen1, 52) = Cells(Wiederholungen1, 52) + Cells(Wiederholungen2, 52)
Cells(Wiederholungen1, 53) = Cells(Wiederholungen1, 53) + Cells(Wiederholungen2, 53)
Cells(Wiederholungen1, 54) = Cells(Wiederholungen1, 54) + Cells(Wiederholungen2, 54)
Cells(Wiederholungen1, 55) = Cells(Wiederholungen1, 55) + Cells(Wiederholungen2, 55)
Cells(Wiederholungen1, 56) = Cells(Wiederholungen1, 56) + Cells(Wiederholungen2, 56)
Cells(Wiederholungen1, 57) = Cells(Wiederholungen1, 57) + Cells(Wiederholungen2, 57)
Cells(Wiederholungen1, 58) = Cells(Wiederholungen1, 58) + Cells(Wiederholungen2, 58)
Cells(Wiederholungen1, 59) = Cells(Wiederholungen1, 59) + Cells(Wiederholungen2, 59)
Cells(Wiederholungen1, 60) = Cells(Wiederholungen1, 60) + Cells(Wiederholungen2, 60)
Cells(Wiederholungen1, 61) = Cells(Wiederholungen1, 61) + Cells(Wiederholungen2, 61)
Cells(Wiederholungen1, 62) = Cells(Wiederholungen1, 62) + Cells(Wiederholungen2, 62)
Cells(Wiederholungen1, 63) = Cells(Wiederholungen1, 63) + Cells(Wiederholungen2, 63)
Cells(Wiederholungen1, 64) = Cells(Wiederholungen1, 64) + Cells(Wiederholungen2, 64)
Cells(Wiederholungen1, 65) = Cells(Wiederholungen1, 65) + Cells(Wiederholungen2, 65)
Cells(Wiederholungen1, 66) = Cells(Wiederholungen1, 66) + Cells(Wiederholungen2, 66)
Cells(Wiederholungen1, 67) = Cells(Wiederholungen1, 67) + Cells(Wiederholungen2, 67)
Cells(Wiederholungen1, 68) = Cells(Wiederholungen1, 68) + Cells(Wiederholungen2, 68)
Cells(Wiederholungen1, 69) = Cells(Wiederholungen1, 69) + Cells(Wiederholungen2, 69)
Cells(Wiederholungen1, 70) = Cells(Wiederholungen1, 70) + Cells(Wiederholungen2, 70)
Cells(Wiederholungen1, 71) = Cells(Wiederholungen1, 71) + Cells(Wiederholungen2, 71)
Cells(Wiederholungen1, 72) = Cells(Wiederholungen1, 72) + Cells(Wiederholungen2, 72)
Cells(Wiederholungen1, 73) = Cells(Wiederholungen1, 73) + Cells(Wiederholungen2, 73)
Cells(Wiederholungen1, 74) = Cells(Wiederholungen1, 74) + Cells(Wiederholungen2, 74)
Cells(Wiederholungen1, 75) = Cells(Wiederholungen1, 75) + Cells(Wiederholungen2, 75)
Cells(Wiederholungen1, 76) = Cells(Wiederholungen1, 76) + Cells(Wiederholungen2, 76)
Cells(Wiederholungen1, 77) = Cells(Wiederholungen1, 77) + Cells(Wiederholungen2, 77)
Cells(Wiederholungen1, 78) = Cells(Wiederholungen1, 78) + Cells(Wiederholungen2, 78)
Cells(Wiederholungen1, 79) = Cells(Wiederholungen1, 79) + Cells(Wiederholungen2, 79)
Cells(Wiederholungen1, 80) = Cells(Wiederholungen1, 80) + Cells(Wiederholungen2, 80)
Cells(Wiederholungen1, 81) = Cells(Wiederholungen1, 81) + Cells(Wiederholungen2, 81)
Cells(Wiederholungen1, 82) = Cells(Wiederholungen1, 82) + Cells(Wiederholungen2, 82)
Cells(Wiederholungen1, 83) = Cells(Wiederholungen1, 83) + Cells(Wiederholungen2, 83)
Cells(Wiederholungen1, 84) = Cells(Wiederholungen1, 84) + Cells(Wiederholungen2, 84)
Cells(Wiederholungen1, 85) = Cells(Wiederholungen1, 85) + Cells(Wiederholungen2, 85)
Cells(Wiederholungen1, 86) = Cells(Wiederholungen1, 86) + Cells(Wiederholungen2, 86)
Cells(Wiederholungen1, 87) = Cells(Wiederholungen1, 87) + Cells(Wiederholungen2, 87)
Cells(Wiederholungen1, 88) = Cells(Wiederholungen1, 88) + Cells(Wiederholungen2, 88)
Cells(Wiederholungen1, 89) = Cells(Wiederholungen1, 89) + Cells(Wiederholungen2, 89)
Cells(Wiederholungen1, 90) = Cells(Wiederholungen1, 90) + Cells(Wiederholungen2, 90)
Cells(Wiederholungen1, 91) = Cells(Wiederholungen1, 91) + Cells(Wiederholungen2, 91)
Cells(Wiederholungen1, 92) = Cells(Wiederholungen1, 92) + Cells(Wiederholungen2, 92)
Cells(Wiederholungen1, 93) = Cells(Wiederholungen1, 93) + Cells(Wiederholungen2, 93)
Cells(Wiederholungen1, 94) = Cells(Wiederholungen1, 94) + Cells(Wiederholungen2, 94)
Cells(Wiederholungen1, 95) = Cells(Wiederholungen1, 95) + Cells(Wiederholungen2, 95)
Cells(Wiederholungen1, 96) = Cells(Wiederholungen1, 96) + Cells(Wiederholungen2, 96)
Cells(Wiederholungen1, 97) = Cells(Wiederholungen1, 97) + Cells(Wiederholungen2, 97)
Cells(Wiederholungen1, 98) = Cells(Wiederholungen1, 98) + Cells(Wiederholungen2, 98)
Cells(Wiederholungen1, 99) = Cells(Wiederholungen1, 99) + Cells(Wiederholungen2, 99)
Cells(Wiederholungen1, 100) = Cells(Wiederholungen1, 100) + Cells(Wiederholungen2, 100)
Rows(Wiederholungen2).Delete
' Entnullen Makro
'
Range("B5:ZZ15000").Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
End If
Next
Next
End Sub