VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Gleiche Einträge markieren

Gruppe

Allgemein

Bereich

Vergleich

Thema

Gleiche Einträge markieren

Problem

Gleiche Einträge - in sortierter Reihenfolge sollen farblich markiert werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub Vergleich()
   Dim iRow As Integer, iColor As Integer
   iColor = 41
   Cells(1, 1).Interior.ColorIndex = iColor
   iRow = 2
   Do Until IsEmpty(Cells(iRow, 1))
      If Cells(iRow, 1).Value <> Cells(iRow - 1, 1).Value Then
         If iColor = 41 Then iColor = 42 Else iColor = 41
      End If
      Cells(iRow, 1).Interior.ColorIndex = iColor
      iRow = iRow + 1
   Loop
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich