Kann Object nicht finden
05.01.2005 10:33:42
Andre
ich möchte das sich die Hintergrundfarbe einer Zelle ändert wenn ein bestimmter wert(Text) eingetragen wird!
habe folgenden Code:
Sub Faerben()
Dim Bereich As Range, Zelle As Range
Set Bereich = Sheets("Monatsansicht").Range("I7:AM66")
For Each Zelle In Sheets("Monatsansicht").Range(target.Address)
If Not Intersect(Zelle, Bereich) Is Nothing Then
Select Case Zelle.Value ' UMWANDLUNG DER Eingabe in Großbuchstaben
Case "DR"
Zelle.Interior.ColorIndex = 6
Zelle.Font.ColorIndex = 0
Case "SD"
Zelle.Interior.ColorIndex = 8
Zelle.Font.ColorIndex = 0
Case "FD"
Zelle.Interior.ColorIndex = 8
Zelle.Font.ColorIndex = 0
Case "U"
Zelle.Interior.ColorIndex = 3
Zelle.Font.ColorIndex = 0
Case "GT"
Zelle.Interior.ColorIndex = 35
Zelle.Font.ColorIndex = 0
Case "K"
Zelle.Interior.ColorIndex = 46
Zelle.Font.ColorIndex = 0
Case "PA"
Zelle.Interior.ColorIndex = 38
Zelle.Font.ColorIndex = 0
Case "BS"
Zelle.Interior.ColorIndex = 7
Zelle.Font.ColorIndex = 0
Case Else
Zelle.Interior.ColorIndex = xlNone
Zelle.Font.ColorIndex = 0
End Select
End If
Next Zelle
Set Bereich = Nothing
End Sub
Bekomme die Fehlermeldung Object nicht gefunden!!
-der Fehler wird in dieser Zeile angezeigt
For Each Zelle In Sheets("Monatsansicht").Range(target.Address)
Was mache ich Falsch?
MFG
Andre
Anzeige