Hallo zusammen
Vielen Dank, Ihr seid SUPER!!! :23:
Der Code von Rabe hat schlussendlich funktioniert. Alle Funktionen funktionieren tadellos.
LG
cuba
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.
(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.
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
Hallo cuba,
Range("H14").Value = Now
Gruß Uwe
Hallo Uwe
Da bleibt das Datum stehen, also keine Uhrzeit vorhanden....
LG
cuba
SORRY, es funktioniert doch!!!!!
Vielen Dank
cuba