Heute () und fixes Datum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Du nervst langsam wirklich, aber ich erkläre es nochmal, damit auch DU es kapierst (du solltest dir mal endlich angewöhnen, Beiträge richtig zu lesen, statt dauernd irgendwelche Schnellschüsse zu starten, ohne überhaupt kapiert zu haben, worum es geht.
Bernds Aufgabensttellung:
"Und zwar soll in der Zelle V14 das aktuelle Tagesdatum erscheinen. In der Zelle W14 soll das Datum dann fix bleiben. Meine Formel für V14 wäre: Heute()
Aber wie würde meine Formel für W14 lauten, also die Zelle in der das Datum von V14 immer fixiert bleibt!"
Meine Antwort: "Selbst mit VBA würde es nix bringen, denn da hättest du das gleivhe Problem: wenn das Datum sich ändert, ändert sich der Wert in W14."
GENAU UM DIESE AUFGABENSTELLUNG GEHT ES und ich habe NIRGENDWO geschrieben, dass man keine Lösung mit VBA schreiben kann, aber eben NICHT für DIESE Aufgabenstellung laut Bernds Beschreibung.
Meine gangbaren Vorschläge sind Alternativen, wie man das Datum in eine Zelle fest eintragen kann, wenn auch NICHT so, wie Bernds es sich ursprünglich vorgestellt hat.
Du liest irgendeinen Text zu 50% durch, und davon kapierst du auch noch nur die Hälfte und wirst hier persönlich. Sind wir hier im Kindergarten oder was ?

…dessen, was noch kommen wird, für Deinen Kaufmannsladen benötigt, Lupo. ;-)
Aber was ist das alles gegen eine Familientradition, bei der der eine Großvater diesen „Abakus“ quasi aus erlegtem Wild gelegt hat und der andere die Kugeln wegließ und die Drähte dann mit 'nem Hämmerchen bearbeitete. Ein Ururgroßvater stichelte schon Löcher in fließende Materialien und verband sie mit Fäden, quasi „Leitungsbahnen“, noch frühere Vorfahren machten Kohle im Wald, teils mit Beil und Feuer, teils mit Pike und Muskete. Da war die Beschäftigung des Vaters mit Sortiermaschinen nur folgerichtig und führte dann zu mir, der schon Anfang der 70er mit programmierten und maschinell ausgewerteten Matheklausuren traktiert wurde…
Morhn, Luc :-?

Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range If Not Intersect(Target, Range("V14:V100")) Is Nothing Then Application.EnableEvents = False For Each C In Intersect(Target, Range("V14:V100")) If C.Offset = "" Then C.Offset = Date Next Application.EnableEvents = True End If End Sub

Beliebteste Forumthreads (12 Monate)

38
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Heute () und fixes Datum

38 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

38
Beiträge zum Forumthread

Beiträge zu diesem Forumthread