Office: (Office 2013) Datum erst in Zelle wenn andere Zelle Wert hat

Hallo Zusammen,

in der Datei im Anhang,wird durch einen doppelklick in Spalte A ab Zeile 3 das Datum mit Uhrzeit einegügt.
In Spalte D kann man erst etwas eintragen wenn in Spalte A das Datum steht.( Datenüberprüfung)

Nun mein Anliegen:
Wenn in der Zelle A3 das Datum steht kann man in die Zelle D3 etwas eintragen.
Soweit gut.
Nun möchte ich aber das man in Zelle A4 nur etwas eintragen kann wenn etwas in Zelle D3 steht. Und so weiter nach unten .

 

Hallo Merkur,

ich würde im Makro in die If-Abfrage ein
or Target.offset(-1,3)<>""
einfügen.
Ist ungetestet.

Gruß,
Lutz

 

Hallo Lutz,
funktioniert in A4 aber in A5 kann ich das DAtum wieder eingeben.

Oder habe ich den Code falsch ?

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A3:A100000")) Is Nothing Or Target.Offset(-1, 3) <> "" Then Exit Sub

  
Cancel = True
Target = Now

End Sub

 

Hallo Merkur,

nicht genug gedacht...
So funzt's:

Code:

If Intersect(Target, Range("A3:A100000")) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target.Offset(-1, 3) <> "" Then
    Cancel = True
    Target = Now
End If

Gruß,
Lutz

 

Hallo Lutz,
danke für Deine Hilfe .
Jetzt funktioniert es wie gewünscht.

 

Hallo nochmal,

es hat sich nun heraus gestellt das man immer noch durch kopieren nachunten das Datum eintragen kann,auch wenn noch nichts in Spalte D steht.

Wie kann man das abstellen ?

 

Hallo Merkur,

lass mich zitieren:

Du kannst versuchen über den gleichen Weg, den Du bei Spalte D gegangen bist, die Spalte A einzuschränken...

Gruß,
Lutz

 

Hallo Lutz,

bin einfach noch nicht so weit in VBA.
Würdest Du mir den Code bitte schreiben ?

 

Hallo Merkur,

das Makro macht, was es soll und kann.
Wenn aber manuell Werte eingetragen oder kopiert werden, ist das Makro außen vor.

Gruß,
Lutz