Laufzeitfehler '1004'
18.01.2022 15:21:18
Tobias
in einer Tabelle sollen jeweils die Zeilenpaare miteinander verglichen werden, die denselben Eintrag in der Spalte E haben.
Stimmen die Einträge dort in den Spalten nicht überein, werden die betreffenden Zellen gelb gefärbt.
Mit diesem Makro funktioniert es, aber nur, wenn es tatsächlich in jedem Zeilenpaar auch mindestens ein unterschiedliches Zellenpaar gibt.
Sub Vergleichsmakro()
Dim myRng As Range
With ActiveSheet
For Each myRng In .Range(.Cells(2, 5), .Cells(Rows.Count, 5).End(xlUp))
If myRng = myRng.Offset(-1) Then
myRng.Select
Selection.Offset(-1).Select
ActiveCell.EntireRow.Select
Selection.Resize(2).Select
Selection.ColumnDifferences(ActiveCell).Select
With Selection.Interior
.Pattern = xlSolid
.ColorIndex = 6
End With
Selection.Offset(-1).Select
With Selection.Interior
.Pattern = xlSolid
.ColorIndex = 6
End With
End If
Next myRng
End With
End Sub
Finden sich allerdings Zeilenpaare, die ganz übereinstimmen, fliegt das Makro aus der Kurve anstatt zum nächsten Zeilenpaar weiterzugehen:
Laufzeitfehler '1004': Keine Zellen gefunden.
Beispieldatei: https://www.herber.de/bbs/user/150486.xlsm
Hat jemand eine Idee, wie man dieses Problem löst?
Vielen Dank und Grüße
Tobias