title image


Smiley Re: geänderter Wert soll farbig werden
Hallo!



Die Lösungsstrategie sieht so aus:

Halte den alten Sachstand in Reserve.

Dann hole Dir den neuen Sachstand.

Vergleiche ihn mit dem alten Sachstand.

Kennzeiche die Zellen, wo Unterschiede bestehen.



Das kann man mit Code für das Codefenster zu "Diese Arbeitsmappe" so lösen:



'------------------------------------------------------------------------



Const c_WshAlt As String = "Tab_Alt" 'Name der Tabelle mit den neuen Werten

Const c_WshNeu As String = "Tab_Neu" 'Name der Tabelle mit den alten Werten

'Diese Kosntanten können auf die tatsächlichen Arbeitsblattnamen angepasst werden



Private Sub Workbook_BeforeClose(Cancel As Boolean)



Dim wsh As Worksheet

Dim int_Anz As Integer

Dim int_Zähler As Integer



int_Anz = Worksheets.Count



'Es wird danach gesucht, ob es ein Arbeitsblatt mit dem Namen Tab_Alt gibt

For int_Zähler = 1 To int_Anz

Set wsh = Worksheets(int_Zähler)

'Wenn ein solches Arbeitsblatt vorhanden ist,

If wsh.Name = c_WshAlt Then

Application.DisplayAlerts = False

'wird es gelöscht

wsh.Delete

Application.DisplayAlerts = True

Exit For

End If

Next



'Nun wird das Arbeitsblatt Tab_Neu kopiert

Worksheets(c_WshNeu).Copy before:=Worksheets(1)

Set wsh = Worksheets(1)

With wsh

'erhält den Namen Tab_Alt

.Name = c_WshAlt

'die benutzten Zellen werden

.UsedRange.Copy

'von den dort vorhandenen Verknüpfungen bereinigt

.UsedRange.PasteSpecial Paste:=xlValues

Application.CutCopyMode = False

'und es wird ausgeblendet

.Visible = xlSheetHidden

End With



End Sub



Private Sub Workbook_Open()

Dim r_Usedrange As Range

Dim c As Range

'Beim Öffnen werden die bisherigen Einfärbungen zunächst entfernt

Set r_Usedrange = Worksheets(c_WshNeu).UsedRange

r_Usedrange.ClearFormats

'Danach werden die Zellen durchsucht

For Each c In r_Usedrange.Cells

'und bei Abweichungen vom alten Sachstand

If c Worksheets(c_WshAlt).Range(c.Address) Then

'grün gefärbt

c.Interior.ColorIndex = 4

End If

Next

End Sub



'------------------------------------------------------------



Gruß

Manes


Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: