Typen unverträglich und ich sehe es nicht
12.12.2004 18:07:37
Jens_Pu
kann bittemal einer auf meinen Code schauen und mir die Augen öffnen?
Ich sehe den Fehler einfach nicht. In den Zellen stehen entweder X oder nichts, alle mit Standard formatiert.
Sub markiere()
Dim rngEingabe As Range
Dim rngSpalte As Range
Dim rngZelle As Range
Dim intC As Integer
Application.EnableEvents = False
Set rngEingabe = Range("B3:I18")
For intC = 1 To rngEingabe.Columns.Count
Set rngSpalte = rngEingabe.Columns(intC)
For Each rngZelle In rngSpalte
If rngZelle.Value = "X" Then '<---Typen unverträglich
rngZelle.Offset(20, (rngZelle.Column - intC) * -1).Interior.ColorIndex = 22
End If
Next rngZelle
Next intC
Application.EnableEvents = True
End Sub
Gruß Jens