Hi leute,
gerade wollte ich ein komplette Excel tabelen workbook einzelne zeilen markieren und habe gesehen das diese komplett durcheinander sind. Jetzt wollte ich ein VBA programm schreiben und natürlcih läuft es auf anhieb nicht. :(
ich bekomme einen "Laufzeitfehler '438': Objekt unterstütz diese Eigenschaft oder Methode nicht."
Meine Bedingungen sind simpel. Wenn in der Spalte 6 ein Satz mit "DE_" beginnt soll dieser grau markiert werden. Alle anderen sollen unbarbeitet bleiben.
Hier ist mein Code:
Sub markiere_sonderanfertigung()
With ActiveWorkbook
If (ActiveWorkbook.Column = 6) And ("DE_*") Then
Rows(.Row).Interior.ColorIndex = 15
Else
Rows(.Row).Interior.ColorIndex = xlNone
End If
End With
End Sub
Kann mir bitte jemand weiterhelfen???
|