Hallo Steffi,
Bitte verzeih die späte Antwort. Ich hatte eine sehr volle Woche. Vielleicht brauchst du meinen Vorschlag ja doch noch.
Bitte erweitere deine Prozedur 'Private Sub Worksheet_Change' folgendermaßen
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If InStr(1, .Address, ":") = 0 Then
OnChange1 Target, .Row, .Column, .Value
OnChange2 Target, .Row, .Column, .Value
End If
End With
Application.EnableEvents = True
End Sub
Viel Erfolg wünscht Heiko
|