Supportnet / Forum / Tabellenkalkulation
Datumsformat im Makro
Frage
Hallo alle zusammen!
Ich benutze ein kleines Makro, welches das heutige Datum in die aktive Zelle schreibt:
Private Sub Taste_HEUTE_Click()
ActiveCell.Value = FormatDateTime(Now, vbShortDate)
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Es sieht zwar aus wie ein Datum - ist aber keins.
Diese Zellen werden beim Umformatieren in ein anderes Datumsformat oder beim Sortieren ignoriert.
Wo liegt mein Fehler?
Grüße aus dem nassgrauen München
Antwort 1 von JoeKe
Hallo HoBra,
versuch mal dies:
Private Sub Taste_HEUTE_Click()
ActiveCell.Formula = "=NOW()"
ActiveCell.Offset(1, 0).Select
End Sub
MfG
JöKe
versuch mal dies:
Private Sub Taste_HEUTE_Click()
ActiveCell.Formula = "=NOW()"
ActiveCell.Offset(1, 0).Select
End Sub
MfG
JöKe
Antwort 2 von coros
Hi,
alternativ könnte man das auch mit nachfolgendem Code lösen.
Der Code fühgt Datum und Uhrzteit in die aktive Zelle ein. Wenn nur Datum, dann muss das folgendermaßen aussehen:
Vielleicht hilft Dir ja eins von beiden weiter.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
alternativ könnte man das auch mit nachfolgendem Code lösen.
Private Sub Taste_HEUTE_Click()
ActiveCell.Value = CDate(Now)
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Der Code fühgt Datum und Uhrzteit in die aktive Zelle ein. Wenn nur Datum, dann muss das folgendermaßen aussehen:
Private Sub Taste_HEUTE_Click()
ActiveCell.Value = Format(CDate(Now), "dd.mm.yyyy")
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Vielleicht hilft Dir ja eins von beiden weiter.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 3 von HoBra
Danke JöKe, so geht´s.
Danke Oliver, das erste Makro funktioniert wie gewünscht. Das Zweite hat den selben Effekt wie mein Makro.
Schönen Tag noch!!
Danke Oliver, das erste Makro funktioniert wie gewünscht. Das Zweite hat den selben Effekt wie mein Makro.
Schönen Tag noch!!
Antwort 4 von JoeKe
Hi HoBra,
erstmal vielen Dank für deine Rückinfo.
Kleine Anmerkung noch zu meinem Makro. Es trägt nicht das heutige Datum in die Aktive Zelle sondern die Formel =Jetzt().
Das heißt wenn du es heute verwendest und ein Datum eintragen läßt, ändert sich das Datum, wenn du die Datei morgen öffnest auf das morgige Datum.
Wenn du dies so nicht möchtest verwende Coros sein Makro, da es das Aktuelle Datum einfügt.
MfG
JöKe
erstmal vielen Dank für deine Rückinfo.
Kleine Anmerkung noch zu meinem Makro. Es trägt nicht das heutige Datum in die Aktive Zelle sondern die Formel =Jetzt().
Das heißt wenn du es heute verwendest und ein Datum eintragen läßt, ändert sich das Datum, wenn du die Datei morgen öffnest auf das morgige Datum.
Wenn du dies so nicht möchtest verwende Coros sein Makro, da es das Aktuelle Datum einfügt.
MfG
JöKe
Antwort 5 von HoBra
Hi JöKe
Danke für Deinen Nachtrag !
Ich benötige das Datum "gestempelt" und muss somit den Code von COROS verwenden.
MfG
HoBra
Danke für Deinen Nachtrag !
Ich benötige das Datum "gestempelt" und muss somit den Code von COROS verwenden.
MfG
HoBra