Warum wird Event nicht ausgeführt?
Peter
Nachfolgender Code steht hinter dem Tabellenblatt "Daten". EnableEvents ist auf TRUE gesetzt (habe ich über den Direktbereich abgefragt).
Nach meinem Verständnis müsste dieser Code ausgeführt werden, wenn ich ein anderes Worksheet innerhalb der gleichen Datei anwähle. Es passiert jedoch gar nichts.
Hat jemand eine Idee, wo das Problem liegen könnte?
Danke für jeden Hinweis und Gruss, Peter
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.Name "Daten" Then Exit Sub
'''''''''durch diesen Code werden allfällige Formeln in Werte umgewandelt und aus einer
'''''''''anderen Tabelle übernommene bedingte Formate gelöscht
'''''''''wird verwendet, wenn Daten aus einer anderen Quelle übernommen werden - jedoch Formeln
'''''''''und bedingte Formate nicht erwünscht sind
Application.EnableEvents = False
Target.Value = Target.Value
Target.FormatConditions.Delete
Application.EnableEvents = True
Call DatenSpalten 'Spalten in dieser Tabelle benennen
End Sub
Anzeige