Hintergrund bei Rundungsoption
22.06.2005 11:38:53
Martina
vielleicht kann mir jemand bei meinem Problem weiterhelfen:
Über nachstehende Code-Funktion ändert sich die Hintergrundfarbe:
Private Sub Worksheet_Change(ByVal Target As Range)
' HINTERGRUND
' für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("D23:E52")
' noch mehr Bereiche
' Set RaBereich = Union(Range("C7:I26"), Range("L7:R26"), Range("U7:AA26"), Range("AD7:AJ26"))
' ab Vesion XP braucht der Schutz nicht aufgehoben werden
' Formatierung bei Schutz kann über Dialog Schutz eingestellt werden
' ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In Range(Target.Address)
With Range(RaZelle.Address).Offset(0, 1)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case "1"
.Interior.ColorIndex = 4
Case "2"
.Interior.ColorIndex = 35
Case "3"
.Interior.ColorIndex = 6
Case "4"
.Interior.ColorIndex = 38
Case "5"
.Interior.ColorIndex = 3
Case Else
.Interior.ColorIndex = xlNone
End Select
End If
End With
Next RaZelle
' ActiveSheet.protect ("Passwort")
Set RaBereich = Nothing
End Sub
Allerdings wird die Zahl in der letzten Spalte nicht mehr manuell eingegeben, sondern als Mittelwert (gerundet auf 0 Stellen) dargestellt. Dann funktioniert das ganze nicht mehr automatisch, sondern nur, wenn die Zahl nochmals manuell eingegeben wird. Das Dokument sollte sich aber automatisch erstellen.
Kann mir da jemand weiterhelfen?
https://www.herber.de/bbs/user/24078.xls
Anzeige