Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige