Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum fixieren

Forumthread: Datum fixieren

Datum fixieren
Nchne2909
ich habe aus dem Forum folgenden Code benutzt um das Datum zu fixieren. 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
Cells(Target.Row, 2) = Date
End If
End Sub
Sobald etwas in Spalte A eingegeben wird, wird das Datum automatisch in Spalte B eingetragen. Jetzt soll das automatisch eingetragene Datum nicht mehr änderbar sein. Wie kann ich das realisieren?
Danke, chn
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum fixieren
09.01.2012 09:52:32
Nchne2909
Danke Hajo. Die Codes helfen mir weiter. Ein Problem habe ich noch: Das Datum kann manuell editiert werden. Können die automatisch geschriebenen Zellen irgendwie vor nachträglichen editieren/löschen geschützt werden.
Danke, chn
Anzeige
AW: Datum fixieren
09.01.2012 19:42:48
Hajo_Zi
nur, wenn Du die Tabelle schützt.
Gruß Hajo
frag vorher ab, ob die Zelle leer ist ...
06.01.2012 11:13:26
Matthias
Hallo
Ich gehe davon aus das die Zelle in (B) am Anfang leer ist.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
If IsEmpty(Cells(Target.Row, 2)) Then Cells(Target.Row, 2) = Date
End If
End Sub
Gruß Matthias
Anzeige
AW: frag vorher ab, ob die Zelle leer ist ...
06.01.2012 11:44:47
Nchne2909
@ Matthias
Danke, aber so war das nicht gemeint. Wenn das Datum automatisch eingetragen wird....soll es paar Tage später manuell nicht mehr änderbar sein.
Grüße, chn
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige