Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bei Änderung Datum nachführen
#11
Hallo zusammen

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

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

LG
cuba
Antworten Top
#12
Hi,

(14.11.2014, 17:59)cuba schrieb: 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.
Antworten Top
#13
(14.11.2014, 17:51)atilla schrieb: 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.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#14
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
Antworten Top
#15
Hallo cuba,

Range("H14").Value = Now

Gruß Uwe
Antworten Top
#16
Hallo Uwe

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

LG
cuba
Antworten Top
#17
SORRY, es funktioniert doch!!!!!

Vielen Dank
cuba
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste