Office: (Office 2013) Zeile in Bereich mit Datum füllen

Hallo Zusammen,

bin neu hier und mein Name ist Ulrich.
Von Excel habe ich wenig Ahnung .

Daher hier mein Problem.
Ich habe eine Excel Datei in der in Spalte B mit einem Dropdown Namen ausgewählt werden.
Die Liste der Namen ist fortlaufend.
In den Zeilen nach dem Namen steht in grau Datum.Die Namen fangen immer ab Zeile 10 an.
Dort muss immer das Datum von Heute eingegeben werden.

Nun meine Frage:
Kann man es so einstellen das man in die erste Zelle nach dem Namen doppel klickt und das heutige Datum automatisch in alle Zellen in dieser Zeile eingetragen wird in denen Datum steht ? Und das die ganze Zeile dann Schreibgeschützt ist ?

Das ist bestimmt nicht so einfach. Doch eventuell habe ich ja Glück.

Danke Ulrich

 

warum Doppelklick, löse es mit der Eingabe.
http://hajo-excel.de/gepackt/vba/datum_bei_aenderung.zip

 

Weil sich die Menschen die es ausfüllen nicht anders gewohnt sind.

 

die einfache Variantew feält Dir nicht. Dann benutze unter Tabele
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Ich bin raus, da Lösung erstellt.

Gruß Hajo

 

Sorry aber Du hast keine Lösung erstellt.
Danke trotzdem

 

Moin!
Was soll man denn machen, wenn man versehentlich falsch doppelt geklickt hat?
Deshalb erstmal ohne Schutz:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("C10:C97")) Is Nothing Then
    Target.Resize(, 42) = Date
    Cancel = True
  End If
End Sub

Gruß Ralf

 

Hallo Ralf,
danke für den Code.Funktioniert einwandfrei.
Würdest Du mir dennoch den Schutz mit einbauen ?

Danke Ulrich

 

Hi,

Mal doof gefragt: welchen Sinn macht es 42x dieselbe Information einzutragen und diese Zellen dann zu sperren?

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C10:C97")) Is Nothing Then
    Me.Unprotect "DeinGeheimesPasswort"
    With Target.Resize(, 42)
        .Value = Date
        .Locked = True
    End With
    Me.Protect "DeinGeheimesPasswort"
    Cancel = True
End If
End Sub

 

Hallo Helmut,

klar darf man danach Fragen.

Danke für Deine Hilfe.

Gruß Ulrich

 

Und die Antwort lautet?

Jetzt sag bloß nicht: 42

 

Die Frage ist was passiert wenn es auf einmal 50 oder 32 Spalten sind ?