mit folgendem Code ändere ich die Formatierung einer Zelle automatisch, wenn sich sein Wert ändert.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target "" Then
'Farbe der Zelle blau
Target.Interior.Color = 14857357
'Schriftfarbe weiß
With Target.Font
.Name = "Arial"
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.Bold = True 'fett
End With
Else
Target.Clear
End If
End Sub
Komischerweise startet das Programm auch dann, wenn ich auf einen Button (Active-X-Steuerelement) klicke und gibt die Fehlermeldung "Typen nicht verträglich" aus. Ich möchte nur dann das Change-Ereignis auslösen, wenn ich auf eine Zelle klicke. Hat jemand eine Idee, wie das Problem zu lösen ist?
Gruß
Idence