Ich würde das über eine (ausgeblendete) Hilfsspalte und ein bedingtes Zahlenformat machen.
Hier mal Schritt für Schritt:
- füge neben der Preisspalte eine leere Spalte ein
- kopiere den Inhalt der kompletten Preisspalte in die neue (wenn das Formeln sein sollten, nur die "Werte" kopieren) und die Spalte dann ausblenden.
- markiere den ersten Wert in der Preisspalte und wähle im Menü "Format" - "bedingte Formatierung..."
- je nachdem, ob die die geänderten oder noch zu ändernden Zellen markieren willst, wählst du als Formel "Zellwert" - "ist gleich" oder "ist ungleich". In das dritte Feld kommt der Bezug zu der benachbarten Zelle mit dem kopierten Wert. Achte darauf, dass vor der Zeilenangabe kein $ steht. (Bsp: Preisspalte = C, Hilfsspalte = D, erster Preis in C3, dann muss =D3 eingegeben werden)
- jetzt noch über den Button Format eine andere Schrift- oder Hintergrundfarbe einstellen und ok drücken.
- Ausprobieren, d.h. in die Preisspalte neuen Preis eintragen
- Wenn es funktioniert, bei markiertem ersten Preis (die eben formatierte Zelle) den Pinsel in der Symbolleiste ("Format übertragen") anklicken und dann den ganzen Rest der Preisspalte markieren. Fertig!

Vor jedem Änderungslauf musst du jetzt nur wieder die Inhalte der Preisspalte in die Hilfsspalte kopieren.

Viel Erfolg

Frag nach, wenn noch was unklar sein sollte.

Vielen dank Flupo!

Es klappt sehr gut, nur folgendes problem habe ich noch:

Manche Preise ändern sich nicht, wenn ich diese aber überschreibe mit den selben Preis ändert sich die Formatierung nicht. damit weiß ich später nicht ob ich diese Preis schon überprüft habe oder nicht.

Bis jetzt ändere ich dann per Hand die Farbe, was aber umständlicher ist.

Gibt es hier noch eine andere Lösung??

MfG

Frank

Hallo Frank,

als Alternative folgendes Mini-Makro

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A2:A" & Range("A65536").End(xlUp).Row)) Is Nothing Then
      Target.Font.ColorIndex = 3
   End If
End Sub

Anbei die Beispieltabelle.

http://www.netupload.de/detail.php?img=05a6c359d15e3673fdf03fbf396b...

Gruß
Rainer

Hallo Rainer,
was muss ich ändern, damit der Hintergrund farbig wird?
mfg
Wolfgang H.

Hallo Wolfgang,

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A2:A" & Range("A65536").End(xlUp).Row)) Is Nothing Then
      Target.[b]Interior[/b].ColorIndex = 3
   End If
End Sub

Gruß
Rainer

Hallo,
in seltenen Fällen findet sogar die MS-Hilfe brauchbare Antworten:

Target.Font.ColorIndex = 3
Target.Interior.ColorIndex = 4

sieht hüsch aus.
mfg
Wolfgang

Hallo Rainer,
nochmal danke.
Wolfgang

Hallo Rainer,

ich bekomme es nicht ganz hin (kenne mich auch nicht so aus mit makro´s..)

Hier meine Tabelle, es handelt sich um Spalte H
http://www.netupload.de/detail.php?img=faf8f45fe5e3577ebedd28068977acde.xls
MfG

Frank

Vielen Dank Rainer!!