Datum Feld Aktualisieren

[beterman14]

Hallo zusammen,

ich habe eine Ticket Liste erstellt.
Mein Wunsch war, wenn ich irgendeine Ticket Nummer eingebe, sollte Open On Datum Feld automatisch sich aktuellen Tag beziehen. Ansonsten bleibt Datum Feld leer.
Ich habe das Ticket 1234 am 03.06.2015 angelegt.
Dafür habe ich folgende Formel verwendet.
=WENN(ISTLEER(A6);"";D4)
Das Problem ist, wenn ich meine Liste am nächste Tag (04.06.2015) öffne, ändern bzw. aktualisieren sich alle Datum Felder 04.06.2015. Datum für das Ticket 1234 sollte jedoch 03.06.2015 bleiben, wo das Ticket angelegt wurde.
[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]
[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]
Wie kann ich es realiseren, dass Open On Datum automatisch angelegt aber sich nicht aktualisiert wird?
(Bespiel Excel Datei im Anhang)
Vielen Dank im Voraus

[Jockel]

Hallo, hier  http://www.ms-office-forum.net/forum/sho...p?t=323061 hat jemand ein ganz ähnliches Problem...

[Peter]

Hallo,

bei MOF wurdest du ja schon auf VBA hingewiesen.

Teste mal den folgenden Code im Modul des Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
    If Intersect(Target, Range("A5:A10")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    If Target = "" Then
        Target.Offset(0, 1).ClearContents
        Else:
        Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy"))
    End If
End Sub

Den Bereich von A5 bis A10 musst du entsprechend anpassen.

[schauan]

Hallöchen,

mit einer Formel mit Zirkelbezug kann man ein Datum oder eine Zeit auch einfrieren bzw. fixieren Voraussetzung dafür ist, dass die Berechnung von Zirkelbezügen mit einer Iterationszahl 1 aktiviert wird.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	02.06.2015	12

Zelle	Formel
A1	=WENN(B1="";"";WENN(A1="";HEUTE();A1))

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

[beterman14]

Hallo Peter
es hat leider nicht geklappt.
Kannst du vielleicht die Excel Datei im Anhang anpassen?

[Peter]

Hallo,

die Datei im Anhang.

[atilla]

Hallo,

wenn ich Dich richtig verstehe, dann soll beim Öffnen der Datei geprüft werden, ob Zelle D4 ein Datum steht,
wenn nicht, dann soll das aktuelle Datum eingetragen werden.

Das ginge mit folgendem Code:

Code:

Private Sub Workbook_Open()
 With Sheets("Tabelle1").Range("D4")
   If Not IsDate(.Value) Then .Value = Date
 End With
End Sub

Der Code gehört in das Codefenster von DiseArbeitsmappe

[Peter]

Hallo,

wenn ich Dich richtig verstehe

dann habe ich das vollkommen missverstanden.

[atilla]

Hi Peter,

nee, Du hast es richtig verstanden.

Ich habe nur folgendes:

Open On

gelesen und, hab ohne genauer hinzusehen, das dann auf das Open Ereignis der Mappe bezogen.

Sorry, und nichts für ungut.

[schauan]

Hallöchen,
Open On ist eine Überschrift und nicht eine Aktion beim Öffnen Wenn das Ticket in Spalte A am 3.6. angelegt wurde, soll das zugehörige Datum in Spalte B 3.6. festgeschrieben werden.