VBA Zellenfarbe wenn Wert ggüber Vorwert anders
29.04.2019 07:52:26
Benedikt
ich benötige etwas Hilfe. Ich habe einen Code, mit dem ich aus einem Tabellenblatt "{Graph Vergleich Stati}" in ein anderes Tabellenblatt "KW Ansicht (Dat.orient.)>=2019" Daten kopiere auf Knopfdruck. Dabei bleibt der alte Wert immer stehen, der neue wird einfach nebendran angereiht. Irgendwann hat man dann eine Vielzahl von Auswertungen nebeneinander. Nun muss der Code folgendermaßen erweitert werden:
Sollte sich einer der drei Werte im Vergleich zur vorherigen Auswertung ändern, soll sich die Zelle B2 Rot färben. Bei der nächsten Auswertung soll sich dann C2 färben wenn sich etwas ändert, bei der nächsten D2 usw...
Ich möchte ohne Bedingte Formatierung arbeiten.
So sieht das stand jetzt aus um es visuell vor sich zu haben.
Und das ist der bisherige Code, den ich erweitern möchte:
Sub KW_Ansicht_Groeßer_2019()
Sheets("{Graph} Vergleich Stati").Select ' Kopiert von diesem Tabellenblatt
Dim Spalte As Integer
Range("E1:E4").Select
Selection.Copy
Sheets("KW Ansicht (Dat.orient.) >=2019").Select ' Fügt in dieses Tabellenblatt ein. Sollte _
_
Tabellenname geändert werden, dann bitte auch hier ändern.
Range("XFD2").Select ' Zahl gibt die Suchzeilennummer an
Selection.End(xlToLeft).Select
Spalte = ActiveCell.Column
Cells(2, Spalte + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub