Kleine Änderung im Makro
13.12.2005 07:37:37
Heinz
Habe eine Bitte:
Habe unteres Makro in der Recherche zum Formel wiederherstellen gefunden.Ist echt Geil !!
Es gibt an wenn die Formel geändert oder gelöscht wird das dann die Schrift in der Zelle rot wird.
Ich möchte aber das sich die Schrift nicht ändert,sondern die Zelle rot hinterlegt wird.
Also statt Schrift die Zellfarbe auf rot ändert.
Könnte mir bitte das Makro jemand umbasteln .
Danke Heinz
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
Application.EnableEvents = False
For Each z In Target
If z.Value = "" Then
z.Value = z.NoteText
'z.Calculate
End If
If z.HasFormula Then
z.NoteText Text:=z.Formula
z.Font.ColorIndex = 3
Else
z.Font.ColorIndex = xlColorIndexAutomatic
End If
Next z
Application.EnableEvents = True
End Sub