Calculate-ereigniss
05.01.2005 15:37:49
Harri
Wie mache ich aus folgendem Code ein Calculate-Ereigniss?
habe es nicht hinbekommen!!!!
--------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo sprungmarke
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
sprungmarke:
End Sub
Anzeige