Mit nachfolgendem Makro werden Datensätze,welche nach der Spalte G (Familiennamen) sortiert sind,farblich gekennzeichnet.Das würde heißen
1.Datensatz: Huber Franz ist grau
2.Datensatz: Muster Josef ist weiß
3.Datensatz: Muster Josef ist weiß
4.Datensatz: Mayer Wolfgang ist grau usw.
Wenn ich jedoch in einem Arbeitsblatt nur einen Datensatz habe, dann bleibt das Makro bei "Next" hängen und es geht nicht mehr.
Wo könnte hier bitte der Fehler liegen?
Sub Zeilenfärbung()
Dim farbe As Integer
Dim zelle As Range
Dim name As String
farbe = 2
For Each zelle In Range(Cells(1, 7), Range("G1").End(xlDown))
If zelle & zelle.Offset(0, 1) <> name Then
name = zelle & zelle.Offset(0, 1)
If farbe = 15 Then farbe = 2 Else farbe = 15
End If
Rows(zelle.Row).Interior.ColorIndex = farbe
Next
End Sub
Danke
Josef