Hallo Uwe, ich habe nocheinmal eine Frage an dich. Du hast mir ja mit dem folgendem Code geholfen
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Dim Blatt, SP As Integer, TMP As Variant, Neu
Dim JaNein, Vorher As String
'*** Stammdaten Anfang
SP = 2 'Überwachte Spalte
'*** Stammdaten Ende
If Not Intersect(Columns(SP), Target) Is Nothing Then
If Target.Count = 1 Then
Application.ScreenUpdating = False
'prüfen ob Zelle vorher gefüllt war und jetzt le...