Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Stand (Datum) automatisch anpassen

Stand (Datum) automatisch anpassen
16.03.2020 11:23:27
Uli
Moin,
eine Frage: Ich habe eine große Tabelle, die ich übers Jahr ein paar mal anpassen muss. Ganz oben steht bei mir immer: Stand: 15.02.2020 (Beispiel). Wenn ich jetzt etwas in der Tabelle ändere, kann ich dann per Formel den Stand automatisch auf das heutige Datum bekommen?
Vielen Dank im Voraus

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 11:35:26
Joachim
mit =heute() bekommst Du immer das aktuelle Datum.
Also auch dann, wenn nichts geändert wird.
Mit einer Formel kommst Du meines Erachtens nicht weiter, ,da musst Du mit VBA ran.
Wenn's Dir hilft: Die Tastenkombination STRG + Punkt schreibt das aktuelle Datum in die Zelle, dann geht es händisch schneller.
Gruß
AW: Stand (Datum) automatisch anpassen
16.03.2020 11:36:14
Günther
Moin Uli,
automatisch bei Änderung geht imho nur per VBA.
Ich empfehle dir, in die entsprechende Zelle zu gehen und per Strg-. (Punkt) das aktuelle Datum eintragen zu lassen. Und wenn das Wort "Stand: " in die gleiche Zelle soll, dann geht das über das Benutzerdefinierte Zahlenformat.
Gruß
Günther
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 11:41:01
UweD
Hallo
wenn was geändert wurde, dann muss die Datei zwangsweise gespeichert werden.
Du könntest also das "Beforesave Event" dazu nutzen.
Der Code muss im VBE in den Codebereich von DieseArbeitsmappe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Rng As Range
Set Rng = Range("A1")
Rng = Format(Date, "DD.MM.YYYY")
End Sub

LG UweD
AW: Stand (Datum) automatisch anpassen
16.03.2020 11:54:21
Günther
Moin,
ob diese Vorgehensweise wirklich so gut ist, weiß ich nicht ...
Bekanntermaßen will Excel auch recht oft ein File speichern, obwohl ich gar nichts geändert habe. Darum würde ich noch eine Ja/Nein MsgBox da einbauen, damit nicht versehentlich das korrekte Datm überschrieben wird.
Gruß
Günther
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 12:11:12
Uli
Danke für die Hinweise.
Günther, wie sollte die Msgbox aussehen?
lg. Uli
AW: Stand (Datum) automatisch anpassen
16.03.2020 12:41:23
UweD
so...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Rng As Range
Set Rng = Range("A1")
If MsgBox("Datum ändern?", vbYesNo + vbQuestion) = vbYes Then Rng = Format(Date, "DD.MM. _
YYYY")
End Sub

LG UweD
AW: Stand (Datum) automatisch anpassen
16.03.2020 12:45:32
UweD
Hallo nochmal
Alternative:
Wenn in DEINEM Bereich eine Änderung vorgenommen wird, dann wird das Datum angepasst.
Dazu muss dieses Makro in den Codebeich der betroffenen Tabelle.
Private Sub Worksheet_Change(ByVal Target As Range)
    Const APPNAME = "Worksheet_Change"
    On Error GoTo Fehler
    
    Dim Datum As Range, Rng As Range
    
    Set Datum = Range("A1")
    Set Rng = Range("D1:F50") 'anpassen 
    
    If Not Intersect(Rng, Target) Is Nothing Then
        Application.EnableEvents = False
        Datum = Format(Date, "DD.MM.YYYY")
    End If
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
        & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 14:27:58
Werner
Hallo Uwe,
hier schreibst du dann aber doch Text in die Zelle: 
Datum = Format(Date, "DD.MM.YYYY")

ich denke besser so: 
Datum = CDate(Format(Date, "DD.MM.YYYY"))
Gruß Werner

306 Forumthreads zu ähnlichen Themen

Datum aus Tag, Jahr, KW auslesen
Stephan

Gibt es eine Möglichkeit das Datum auszulesen aus:
Mo = Montag
Jahr=2008
KW=1
Besten Dank
Stephan
16.08.2008 22:23:00
Thread-ID: 1002369
7 Beiträge
Anzeige
Summe wenn Datum ein Jahr zurück
Roland

Moin Spezialisten,
ich habe eine Spalte, in der div. Datumangaben enthalten sind, z.B.
11.06.2004
07.03.2005
04.05.2006
16.07.2006
05.02.2006
29.01.2006
25.09.2006
11.12.2007
06.10.2007
10.08.2008
15.12.2008
Nun möchte ausgehend von einem Datu...
27.10.2008 08:57:00
Thread-ID: 1019526
6 Beiträge
Datum sortieren ohne Berücksichtigung Jahreszahl
fraubi

Hi,
ich versuche mir einen Geburtstagskalender zu bauen. Dabei habe ich Probleme mit der Sortierung des Geburtsdatums, da das Geburtsjahr bei der Sortierung nicht berücksichtigt werden soll. Wenn ich die Geburtstage sortiere dann sieht das immer so aus :
30.04.1964 Andreas Müller
22...
03.11.2008 17:38:32
Thread-ID: 1021394
2 Beiträge
Anzeige
Datumswerte in Spalte richtig umwandeln
chris

Hallo zusammen,
ich habe ein Problem und würde ecuh um Hilfe bitten.
ich habe eine Exceldatei.in dieser habe ich eine Spalte in dieser stehen Datumswerte.
Nur das Problem ist manche zellen sind nicht als Datum formatiert das merke ich z.b wenn ich den Autofilre verwende sind die Dat...
02.12.2008 11:57:00
Thread-ID: 1029457
6 Beiträge
Differenz von 2 Datums in Jahre rechnen
2

Hi,
ich möchte die Differenz zweier Datums in Jahre darstellen. Erstes Datum steht in B2 (zB 10.03.2001) und zweites in C2 (zB 15.07.2007) .
Die Differenz zwischen B2 und C2 soll in C3 stehn und zwar als Kommazahl. (zB 6,75 Jahre )
Weis jemand eine Formal dafür ?
Danke Joach...
06.01.2009 00:25:51
Thread-ID: 1037149
6 Beiträge
Datum Minus 5Jahre in VBA
Modolo

Hallo Zusammen
Ich arbeite innerhalb eines Makros mit Filtern, ich bräuchte jetzt noch eine Lösung wie ich dort das aktuelle Datum minus 5 Jahre eingebe.
Hat da Jemand eine Lösung für mich?
Danke
Modolo
26.02.2009 13:14:16
Thread-ID: 1054345
10 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Datum in Zahl umwandeln
Johannes

Hallo!
Habe eine Frage zu Excel:
Ich möchte über eine WENN-Funktion das Datum aus G2 als Zahl in dem entsprechenden Feld (AJ - AP) haben.
Z.B. für "Freitag, 2. Januar 2009" soll in der Spalte AN eine 1 stehen.

Über Hilfe wäre ich SEHR dankbar.
Liebe Grüße
Johannes
04.03.2009 12:20:18
Thread-ID: 1056301
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
5
1
2
5
5
9
14
6
7
11
2
16
2
3
3
2
4
1
6
1
5
5
8