Datum einmalig anzeigen
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
Antwort schreiben
Antwort 1 von Saarbauer vom 27.04.2020, 19:12 Options
Hallo,
geht nur mit einem Makro
Gruß
Helmut
Antwort 3 von Alexsusi vom 27.04.2020, 22:22 Options
Besten dank. Kompliziert, aber werde mich schon reinfuchsen.
Antwort 4 von Alexsusi vom 28.04.2020, 19:36 Options
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.
Antwort 5 von Hajo_Zi vom 28.04.2020, 19:42 Options
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
Antwort 6 von Alexsusi vom 28.04.2020, 20:27 Options
Hallo Hajo,
besten dank, funktioniert prima. Schade das ich nicht so richtig hinter das System steige ;)
Antwort 7 von Alexsusi vom 28.04.2020, 20:34 Options
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
Antwort 8 von Hajo_Zi vom 28.04.2020, 20:36 Options
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
Antwort 9 von Alexsusi vom 28.04.2020, 20:42 Options
Ach so...oh je...
besten dank. Ich glaube ich muss mir mal nen Buch dafür kaufen ;)
Vielen vielen dank.
Gruß Alex