Bei Änderung Datum nachführen

[cuba]

Hallo zusammen

Vielen Dank, Ihr seid SUPER!!! :23:

Der Code von Rabe hat schlussendlich funktioniert. Alle Funktionen funktionieren tadellos.

LG
cuba

[Rabe]

Hi,

Der Code von Rabe hat schlussendlich funktioniert. Alle Funktionen funktionieren tadellos.

und wenn Du hinter das ".Protect" und ".Unprotect" jeweils noch Password:="cuba" schreibst, ist die Tabelle mit dem Passwort cuba geschützt und kann nicht von jedem entsperrt werden.

[WillWissen]

Hallo Günter,

da es ein Change Ereignis ist, betrifft es natürlich die aktive Tabelle. Deswegen braucht es keine Tabellenangabe. Also With Sheets("Tabelle2") kann weg.

Dann wird bei Dir der Schutz bei jeder Änderung aufgehoben und wieder gesetzt, da Du erst danach prüfst, ob die Änderung im angegebenen Bereich liegt.
Mehr als der Code von Stefan braucht nicht.

Danke, Atilla

für deine erklärenden Worte. Das hilft mir ein Riesenstück weiter, mich langsam aber sicher durch die Welten des VBA zu bewegen.

[cuba]

Sorry, ich habe da eine Zusatzfrage

Ich würde neben dem Datum auch gleich die Uhrzeit haben mögen. Mittels dieser Codierung ist die Uhrzeit unter dem Datum und hat noch das PM dahinter.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D10,D12,D14")) Is Nothing Then
Me.Unprotect Password:="abc"
Range("H14").Value = Date
Range("H15").Value = Time
Me.Protect Password:="abc"
End If
End Sub

Ich habe mal experimentiell versucht, hinter Date das Time anzufügen, aber da ist die Zeile jeweils rot eingefärbt....

Was gehört in die Zeile H14, wenn das Resultat in etwa so aussehen müsste: 16.11.2014; 12.56

LG
cuba

[Kuwer]

Hallo cuba,

Range("H14").Value = Now

Gruß Uwe

[cuba]

Hallo Uwe

Da bleibt das Datum stehen, also keine Uhrzeit vorhanden....

LG
cuba

[cuba]

SORRY, es funktioniert doch!!!!!

Vielen Dank
cuba