AW: andere Idee
21.06.2005 15:18:18
steifinga
Ich habe jetz folgenden Code benutzt und wende diesen auch auf einem TabellenBlatt in dem ein großteil der Zelle Verknüpft ist.
Mit folgendem Code funktiniert das aber nur bei der ersten Änderung, das heißt wenn im ersten Formular was verändert wird ändert sich das Format dann nicht automatisch mit.
Kann man den Code irgendwie abändern das er sich mit folgender Formel gut verträgt?
Oder gibt es eine möglichkeit das alles in den Code mitzunehmen
=WENN(Eingabe!D7="";"";Eingabe!D7)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("D7:IV755")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
With RaZelle
Select Case UCase(.Value)
Case "1"
.Interior.Color = RGB(255, 204, 153)
.Font.Color = RGB(255, 204, 153)
Case "2"
.Interior.Color = RGB(255, 153, 0)
.Font.Color = RGB(255, 153, 0)
Case "3"
.Interior.Color = RGB(153, 51, 0)
.Font.Color = RGB(153, 51, 0)
Case "4"
.Interior.Color = RGB(153, 204, 255)
.Font.Color = RGB(153, 204, 255)
Case "5"
.Interior.Color = RGB(51, 102, 255)
.Font.Color = RGB(51, 102, 255)
Case "6"
.Interior.Color = RGB(0, 0, 128)
.Font.Color = RGB(0, 0, 128)
Case ""
.Interior.ColorIndex = 0
.Font.ColorIndex = 0
End Select
End With
End If
Next RaZelle
Set RaBereich = Nothing
End Sub
Und nochmal danke für den Code
Im Prinzip möchte ich eine Datei in der in eine Tabelle eingetragen wird (1-6) und in drei anderen eine die Daten automatisch übernommen werden und sich automatisch einfärben
Wer super wenn du mir helfen könntest
Grüße aus Kärnten