Hallo,
ich versuche ein Makro zurecht zu basteln, das bei bestimmten werden in einer Zelle im Bereich A1-A500 die gesamte Zeile einfärbt.
Wert: Remove oder Edit (Old) --> ganze Zeile rot markieren und durchstreichen.
Wert: Edit (New)" oder "Add" --> ganze Zeile grün markieren.
Und dann zur nächsten Zeile.
Aktuell funktioniert das Makro nur, wenn alle 4 Werte enthalten sind. Sobald ein Wert fehlt, stürzt es ab mit Laufzeitfehler 91: Objektvariable oder With Blockvariable nicht festgelegt. Wo liegt der Fehler?!
Tausend Dank
"Sub Markieren
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("A1:A500")
For Each Zelle In Bereich
If Zelle = Cells.Find(What:="Edit (Old)", LookAt:=xlPart, LookIn:=xlValues) Or Zelle = Cells.Find(What:="Remove", LookAt:=xlPart, LookIn:=xlValues) Then
Zelle.EntireRow.Select
With Selection.Font
.Color = -16776961
.Strikethrough = True
End With
End If
If Zelle = Cells.Find(What:="Edit (New)", LookAt:=xlPart, LookIn:=xlValues) Or Zelle = Cells.Find(What:="Add", LookAt:=xlPart, LookIn:=xlValues) Then
Zelle.EntireRow.Select
With Selection.Font
.Color = -11489280
End With
End If
Next Zelle
End Sub"
|