Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn-Datum

Forumthread: Wenn-Datum

Wenn-Datum
08.06.2004 19:28:00
Werner
Hallo, ich habe folgendes Problem:
In einer Zeile sollen mehrere Eingaben zusammengezählt werden. Wenn die Summezelle sich füllt, soll daneben das Datum des Eintrags erscheinen. Das Datum soll sich aber nicht am nächsten Tag verändern.
https://www.herber.de/bbs/user/7233.xls
Wer kennt eine Lösung, entweder als Formel oder als VBA.
Für Eure Hilfe schon jetzt Danke.
Werner
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn-Datum
08.06.2004 19:43:11
Klaus-Dieter
Hallo Werner,
kopiere dieses Makro in das Modul deines Tabellenblattes.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dt As Date
dt = Format(Now, "dd.mm.yy")
If Target.Column = 3 Then
Cells(Target.Row, 5) = dt
End If
End Sub

Gruß Klaus-Dieter
Anzeige
AW: Wenn-Datum
Kay
Hallo Werner
hätte diese Lösung

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Heute As Date
Heute = Format(Now(), "dd.mm.yy")
If Not Intersect(Target, Range("C:C,A:A,B:B,D:D")) Is Nothing Then
Cells(Target.Row, 5) = Heute
End If
End Sub

Fügt das Datum ein wenn sich eine der Cellen die zusammengerechnet werden ändert.
Klaus-Dieter war leider schneller und wohl auch besser.
MfG
Kay
Anzeige
AW: Wenn-Datum
Beni
Hallo Werner,
kopiere diesen Code in das Modul der Tabelle ein mit rechte Maustaste auf Blattregister/ Code anzeigen.
Gruss Beni
Dim alterWert

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
alterWert = [D3]
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If [D3] <> alterWert Then [E3] = Date
End Sub

Anzeige
AW: Wenn-Datum
09.06.2004 05:47:15
Werner
Ein Hallo an Alle, die mir so schnell geholfen haben. Ich werde Eure Vorschläge heute ausprobieren. Ein Klasse Forum. Danke.
Gruß
Wernr
;

Beliebteste Forumthreads (12 Monate)

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