Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
436to440
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
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige