Hallo
Ich habe folgendes Problem.
Mit dem Makro färbe ich alle Doppelten Einträge Rot.
Dazu muss aber die ganze Zelle gleich wie die anderen sein.
Kann man auch nur die ersten 10 Zeichen jeder Zelle vergleichen?
Denn ich möchte automatisch die Summe aus Spalte B bilden, und in C eintragen, solange die ersten 10 Zeichen in Spalte A gleich sind. Ist so etwas möglich?
Bitte um eure Hilfe
Dim z As Long
Range("A1").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
z = 1
Do While Not IsEmpty(Cells(z + 1, 1))
If Cells(z, 1) = Cells(z + 1, 1) Then
Rows(z + 1).EntireRow.Font.ColorIndex = 3
z = z + 1
Else
z = z + 1
End If
Loop