ich habe hier ein Makro das Doppelte Einträge in der Spalte "F" Sucht, und Rot markiert das klappt auch Super. Jetzt möchte ich das über den gefundenen Doppelt gefundenen Einträgen, eine Zeile eingefügt wird. Und die Daten von den Doppelten einträge "A" bis G"" (Formatierung Standard) eingetragen wird, und von der Spalte "J" (Formatierung Standard)die Summen Addiert werden. und in die neue angelechte Zeile eingefügt wird.Und das die neu eingefügte Zeile Rot ist
Könnt Ihr mir bitte Helfen!!
Mit freundlichen Grüßen aus dem Sauerland
Olaf
Private Sub CommandButton1_Click()
Dim lngZeile As Long
Dim lngEnde As Long
Dim i As Integer
lngEnde = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
For lngZeile = 1 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
If Application.CountIf(Range("F2:F" & lngEnde), Range("F" & lngZeile)) > 1 Then
Range("F" & lngZeile).Interior.ColorIndex = 3
End If
Next lngZeile
End Sub