Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Eintrag Datum in anderes Feld schreiben

Bei Eintrag Datum in anderes Feld schreiben
28.05.2017 22:55:12
Gustavo
Hallo, wenn ich in Spalte A etwas eintrage, soll in Spalte D automatisch das Datum eingetragen werden. Wie kriege ich das hin?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Eintrag Datum in anderes Feld schreiben
29.05.2017 03:03:00
Frank
Hallo und Guten Morgen!
Die Spalte D solltest du als Datum formatieren.
In D1 folgende Formel: =WENN(A1"";HEUTE();"")
Formel soweit wie du sie benötigst nach unten ziehen.
Konnte ich helfen?
Gruß Frank H.
AW: Bei Eintrag Datum in anderes Feld schreiben
30.05.2017 13:45:50
Stephan
Bei =HEUTE() ändert sich ja das Datum täglich.
Wie lautet die Formel, wenn das Datum bestehen bleiben soll?
Danke.
AW: Bei Eintrag Datum in anderes Feld schreiben
29.05.2017 04:30:34
Bernd
Hi,
oder lieber mit VBA (Code in Dein Arbeitsblatt):
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Cells(Target.Row, 4).Value = Now
Application.EnableEvents = True
End Sub
MfG Bernd
Anzeige
AW: Bei Eintrag Datum in anderes Feld schreiben
29.05.2017 08:54:08
Gerd
Moin 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
If Target.Column = 1 Then
Application.EnableEvents = False
For Each objCell In Intersect(Target, Columns(1))
If objCell  "" Then Cells(objCell.Row, 4).Value = Date
'ggf. wieder entfernen beim Löschen
If objCell = "" Then Cells(objCell.Row, 4).ClearContents
Next
Application.EnableEvents = True
End If
End Sub
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige