folgender Code bringt mir den Fehler: Laufzeitfehler 1004:
Anwendungs- oder objektdefinierter Fehler!
Der Code steht in der Tabelle Makrostart gestartet werden und betrifft die Tabelle MeineTabelle!
Ziel: Es sollen in MeinTabelle die Zellen in Spalte A Gelb hinterlegt werden, wenn die Zelle in A mit der Zelle in E übereinstimmt.
Hier der Code und eine Beispieltabelle:
Option Explicit
Sub EinfärbenausMakrostart()
Dim wksMT As Worksheet
Dim LeZeiA As Long
Dim i As Integer
Set wksMT = Worksheets("MeineTabelle")
Application.ScreenUpdating = False
LeZeiA = Application.Max(3, wksMT.Cells(Rows.Count, 1).End(xlUp).Row)
Range(wksMT.Cells(3, 1), wksMT.Cells(LeZeiA, 1)).Interior.ColorIndex = 0
For i = LeZeiA To 3 Step -1
If wksMT.Cells(i, 1) = wksMT.Cells(i, 5) Then
wksMT.Range("A" & i).Interior.ColorIndex = 6
End If
Next i
End Sub
Die Datei https://www.herber.de/bbs/user/86538.xls wurde aus Datenschutzgründen gelöscht
Danke und Servus, Walter