hallo zusammen,
ich habe eine bitte: kann mir jmd. diesen code kurz erläutern was in jeder zeile passiert.
das wäre echt super DANKE!
Private Sub CommandButton1_Click()
With Sheets(1).UsedRange
With .Columns(.Columns.Count).Offset(6, 1).Resize(.Rows.Count - 1)
.FormulaR1C1 = "=IF(CountIf(R1C1:RC1,RC1)=1,(RC2),True)"
.Formula = .Value
.Offset(0, 2 - .Column).Value = .Value
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
.ClearContents
End With
End With
|