Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum einfrieren

Forumthread: Datum einfrieren

Datum einfrieren
19.01.2006 15:18:52
Huber
Hallo zusammen,
suchen eine Funktion die mir das Datum =jetzt() oder =heute() einfriert wenn in einer bestimmten Zelle eine Stückzahl größer 1 steht bzw. irgend ein wert steht.
Beispiel : In einer Bedarfsanforderung bleibt das Datum der aufgerufenen Vorlage solange aktuell bis etwas eingetragen (Stückzahl oder Rechnungswert)ist.
Gruß Huber
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Datum einfrieren
19.01.2006 15:35:48
Klaus-Dieter
Hallo Huber,
mit diesem Makro im Modul des Tabellenblattes geht das:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Cells(Target.Row, 1).Copy
Cells(Target.Row, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
End Sub

Die Bezüge müssen noch angepasst werden. Ich bin davon ausgegangen, dass in Spalte A die Formel steht, und in Solate B der Eintrag erfolgt.
Viele Grüße Klaus-Dieter

Online-Excel
Anzeige
AW: Datum einfrieren
19.01.2006 16:16:45
Huber
Funktioniert leider nicht bei mir...
Der Datumseintrag bleibt bei =jetzt().
Habe im Feld F42 das Datum stehen und möchte wenn im Feld B8-B25 ein Wert eingetragen wird das Datum eingefroren wird.
AW: Datum einfrieren
19.01.2006 16:26:52
Klaus-Dieter
Hallo,
ich hatte doch geschrieben, das muß angepasst werden. Mit VBA gut hättest du das hinkbekommen müssen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Cells(42, 6).Copy
Cells(42,6).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
End Sub

Viele Grüße Klaus-Dieter

Online-Excel
Anzeige
AW: Datum einfrieren
20.01.2006 07:38:47
Huber
Sorry Klaus-Dieter,
aber bin am probieren.VBA doch noch nicht so gut.
Trotzdem danke für die Info´s.
Gruß Huber
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige