Zellfarbe ändert sich sobald Zellwert sich ändert ?

[UweD]

Hallo

dann würde ich das Ganze anders machen.

- Leg ein Blatt "Temp" an , was du auch ausblenden kannst.
- Beim öffnen der Datei werden die Daten automatisch in H:P beginnend ab Zeile 6 bis zum Ende auf dieses Blatt kopiert

Dazu dieses Makro in den Bereich "DieseArbeitsmappe" kopieren

Code:

Option Explicit
Private Sub Workbook_Open()
    Dim TB As Worksheet, TBTemp As Worksheet
    Dim Z1 As Integer, LR As Long, S1 As Integer, Off As Integer
   
   
    Set TB = Sheets("Tabelle1")
    Set TBTemp = Sheets("Temp")
    Z1 = 6 'Startzeile
    S1 = 8: Off = 9 'Startspalte und Anzahl Spalten
   
    LR = TB.Cells(TB.Rows.Count, S1).End(xlUp).Row 'letzte Zeile der Spalte
   
    TB.Cells(Z1, S1).Resize(LR - Z1 + 1, Off).Copy TBTemp.Cells(Z1, S1)
End Sub

- Im Eingabeblatt erfolgt die farbliche Kennzeichnung dann durch bedingte Formatierung.

Dazu...

- H6:P19 markieren
- Bedingte Formatierung
- Neue Regel
- Formel zur Ermittlung..
- Als Formel trägst du ein
 =H6 < Temp!H6
- Formatierung Grün
- OK,ok

- nochmal neue Regel...
=H6 > Temp!H6
- Formatierung Rot...


LG UweD

[Wonderer]

Hallo,

den Code habe ich jetzt für das Blatt Temp angelegt, es kommt aber diese Fehlermeldung vgl. Anlage.

VG

[UweD]

Hi

1)
NICHT für das Blatt Temp sondern der Code muss in "DIESEARBEITSMAPPE".

2)
Hast du auch ein Blatt mit Namen Temp angelegt?

3)
Die Fehlermeldung:

speicherst du auf onedrive?
Sieht mir nach einem Problem dort aus.


LG UweD