Makro-Änderung Doppeleinträge entfernen
21.06.2007 08:42:00
Rosi
nachfolgendes Makro verwende ich um in einer Liste Doppeleinträge zu addieren und danach zu löschen (Spalte D = Text;Spalte E =Häufigkeit).
Nun muss ich die Liste erweitern:
Spalte D = Text;Spalte E = Ursache;Spalte F = Häufigkeit.
Was bitte muss ich im Makro diesbezüglich ändern? Ein Doppeleintrag besteht dann erst wenn Text und Ursache identisch sind mit Text und Ursache anderer Zeilen!
Bin in Sachen VBA noch nicht sehr bedarft!
Gruss Roswitha
Sub Makro()
Dim lZeile As Long
Dim lVglZei As Long
Dim sVglWert As String
For lZeile = 5 To Range("D65536").End(xlUp).Row
sVglWert = Range("D" & lZeile).Value
For lVglZei = Range("D65536").End(xlUp).Row To lZeile + 1 Step -1
If sVglWert = Range("D" & lVglZei).Value Then
Range("E" & lZeile).Value = CDbl(Range("E" & lZeile).Value) + _
CDbl(Range("E" & lVglZei).Value)
Range("D" & lVglZei & ":E" & lVglZei).Delete Shift:=xlUp
End If
Next lVglZei
Next lZeile
End Sub
Anzeige