Office: Nachbarzelle füllen, wenn aktuelle Zelle gefüllt wird

Hallo zusammen,
folgende Überlegung:

Wenn ich im Sheet eine Zelle aktiviere
und schließlich mit einem Text beschreibe,
möchte ich dass in der Nachbarzelle das Datum eingefügt wird.

Wenn ich nur die Zelle aktivere, soll nichts passieren.
(Dadurch soll verhindert werden, dass bei jedem Zellenklick die Neben-Zellen gefüllt werden)

(Mit aktivieren meine ich mit dem Mauszeiger anklicken.)

mein status:
Code:

Danke schonmal im Voraus

:)

 

probier's mal so:
Code:

 

Hi,

beim löschen des Inhalts wird das Datum auch gelöscht:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Const myCol = 1 'Eingabespalte anpassen!
If Not Intersect(Target, Columns(myCol)) Is Nothing Then
Target.Offset(, 1) = IIf(Target(1) = vbNullString, vbNullString, Now)
End If
End Sub

 

Hallo,
alle beide Vorschläge klappen nicht...
da wird bei beiden nichts eingefüllt,
egal was ich mache...

weitere vorschläge???

 

Hallo
mit:
Code:

startet der Code beim eintragen im Blatt in der der Code steht.
mit
Code:

startet der Code (im Code der Arbeitsmappe) beim eintragen bei allen Blaettern
mit
Code:

startet der Code(im Code der Arbeitsmappe) beim Zellwechsel.
teste mal so, gilt dann fuer alle Blaetter.
Code in den Code der Arbeitsmappe.
Code:

gruss hary

 

Moin,

kann ich nicht nachvollziehen, bei mir funktionieren beide Varianten (für Spalte A)!
Wenn es egal ist, in welche Spalte Du die Eingaben machst, dann versuch es mal so:
Code:

 

MÜCKE ,

you are my MAN *grins

Thx...

 

Hallo
hab trotz Loesung noch einen.
Code:

gruss hary

 

Hallo zusammen,

ich bin gerade zufällig auf diesen Beitrag gestoßen... Und ja, ich habe gesehen, dass er schon ewig alt ist, trotzdem habe ich noch 2 Fragen bzw. Erweiterungen ...

1. Wie muss ich den Code umstellen, dass das Datum nach löschen des Textes auch wieder gelöst wird?
2. Möchte ich gerne, dass das Datum in eine geschützte Celle eingefügt wird...

Ich hoffe Ihr könnt mir da weiterhelfen...

 

Hallo Frank,

Target.Offset(0, 1) = IIf(Target.Offset(0, 1) = "", Date, "")
2 geht nur in einer geschützten Tabelle also zu Beginn den Schutz aufheben und vor End sub setzen.

 

Hallo Hajo,

vielen Dank für Deine Hilfe! So klappt es Prima!

 

Hallo,

suche schon eine Ganze Weil nach einer möglichkeit,
wenn ich in einer ganz bestimmten zeile was eintrag, dann in einer ganz bestimmten Zeile das Aktuelle Datum und Uhrzeit eingefügt wird.

Tabellenblatt sieht so aus.
von B3-H3 sind daten, und in I3 soll das Aktuelle Datum und Zeit B.z wie =JETZT(). Aber es darf sich nicht nach neuen Aufrufen der Datei Aktuallisieren,.

Kann mir einer da weiter helfen?

Gruß
Rogue

 

neues Thema, neuen Beitrag.

http://hajo-excel.de/chCounter3/getfile.php?id=41