Supportnet / Forum / Tabellenkalkulation

Hallo, ich hab folgendes Problem: Ich möchte wenn ich in eine Zelle etwas eintrage, das in einer anderen Zelle das aktuelle Datum angezeigt wird. Dazu habe ich folgende Formel verwendet: =WENN(B64>0;JETZT();"Datum") Das Problem hierbei ist, dass wenn ich die Datei nun neu öffne, dass sich die Formel neu berechnet und ich wieder das aktuelle Datum in der Zelle habe, was ich aber gar nicht möchte... Kennt jemand eine andere Formel wo das aktuelle Datum der Dateneingabe angezeigt wird, es sich danach aber nicht mehr verädnert? Besten dank

Hallo,

geht nur mit einem Makro

Gruß

Helmut

Hi,

schau Dir mal den nachstehenden Thread an.

Ich denke der beantwortet Deine Frage.

https://supportnet.de/threads/1173483


In diesem Sinne... have a nice Day... Gruß Helmut

Besten dank. Kompliziert, aber werde mich schon reinfuchsen.

Kennt jemand eventuell eine Internetseite wo man die generellen Befehlsformen von VBA einsehen kann?

Also woraus ich mir ableiten kann, dass ich jetzt zum Beispiel:

Private Sub Workbook_Open()

eintragen muss damit der Befehl beim Öffnen der Datei ausgeführt wird,

oder

Range ("A1") um das auf eine Zelle zu beziehen? Denn mit den Formeln auf die ich hingewiesen wurde kann ich so wie ich es brauche leider nichts anfangen und ich habe es auch noch nicht geschafft sie auf meinen Bedarf zu ändern.

Ich brauche halt die Funktion das wenn ich im Tabellenblatt ( Arbeitsliste 2008 ) einen Wert in Zelle B 74 eingebe, dann soll mir Excel in Spalte A 72 das Tagesaktuelle Datum schreiben und dieses danach nicht mehr verändern.

Vielen dank für eure Hilfe.

Hlalo Alex,
in VBA unter die Tabelle

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$74" Then Range("A72") = Date
End Sub

Gruß hajo

Hallo Hajo,

besten dank, funktioniert prima. Schade das ich nicht so richtig hinter das System steige ;)

Hm, wenn ich jetzt eingebe:


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$64" Then Range("A62") = Date
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$74" Then Range("A72") = Date
End Sub

, weil ich die Funktion ja öfter ausführe, dann bringt mir Excel bei jeder Veränderung der Zellen den Fehler:

Fehler beim Kompilieren:

Mehrdeutiger Name: Worksheet_Cange

Hallo alex,

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$64" Then
Range("A62") = Date
elseIf Target.Address = "$B$74" Then
Range("A72") = Date
end if
End Sub

Die Aktion darf nur 1x pro Tabelle sein.

Gruß Hajo

Ach so...oh je...

besten dank. Ich glaube ich muss mir mal nen Buch dafür kaufen ;)

Vielen vielen dank.

Gruß Alex

• Datum _KW in Excel
• Textstring mit variablem Inhalt
• Datum formatieren
• Datum des Wochentags bestimmen.
• Datum anzeigen