Hey Danke,
sorry das ich erst jetzt anworte. Vielen Dank. Sieht gut aus, ist aber leider total unzuverlässig. Es fügt das Datum für mich nicht nachvollziehbar ein. Manchmal gar nicht, dann bei Werteingabe durch Return, dann wieder nicht. Am zuverlässigsten funktioniert es wenn ich von unten rauf die Werte lösche.
Ich befürchte die Erkennung der Vollgeschriebenen Zelle in Reihe 6 (F) ist irgendwo falsch.
Lieber Gast17364,
vielleicht kannst du da nochmal drüber schauen. Oder mir erklären was in der Zeile
If .Address = Cells(Cells(Rows.Count, 6). End (xlUp).Row + IIf(.Value = vbNullString, 1, 0), 6).Address Then _
Cells(Cells(Rows.Count, 1). End (xlUp).Row + 1, 1).Value = Date
genau passiert bevor er das"Date" einfügt.
Vielen dank Günther
|