Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum in Textfeld schreiben

Datum in Textfeld schreiben
stefan
Hallo,
ich tu mich mit Excel 2007 ziemlich schwer.
will einfach nur bei aufruf eines formulars in ein textfeld das aktuelle datum schreiben.
lblStand.Caption = "heute()"
Desweiteren will ich ein ein anderes textfeld einen Summenbetrag eintragen. Auch das ging nicht.
Könnt Ihr mir etwas auf die Sprünge helfen?
Danke Euch.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum in Textfeld schreiben
26.11.2009 18:13:24
IngGi
Hallo Stefan,
zum Beispiel so:

lblStand.Caption = Format(Date, "dd.mm.yyyy")
Wie sieht dein Code für den Summenbetrag aus?
Gruß Ingolf
AW: Datum in Textfeld schreiben
26.11.2009 20:30:04
stefan
vielen dank, doch leider funzt das nicht.
Sub zeigeAuswertung()
frmAuswertung.Show
lblStand.Caption = Format(Date, "dd.mm.yyyy")
End Sub
Es kommt immer der Fehlerhinweis "Objekt erforderlich".
Wer kann mir helfen?
Danke vielmals
Anzeige
AW: Datum in Textfeld schreiben
26.11.2009 20:40:14
F1

Sub zeigeAuswertung()
frmAuswertung.Show
frmAuswertung.lblStand.Caption = Format(Date, "dd.mm.yyyy")
End Sub

AW: Datum in Textfeld schreiben
26.11.2009 21:09:52
stefan
hallo F1,
leider wird das ergebnis immernoch nicht angezeigt. ich weiss auch nicht, wo das problem ist :-(
AW: Datum in Textfeld schreiben
26.11.2009 21:14:32
IngGi
Hallo F1,
das wird so nicht funktionieren.
Nach dem Aufruf des Userformulares kommt die Zeile zu spät! ;-)
Gruß Ingolf
Anzeige
AW: Datum in Textfeld schreiben
26.11.2009 21:12:50
IngGi
Hallo Stefan,
an der richtigen Stelle funktioniert das schon. Die Zeile kommt in das Initialize-Ereignis im Codemodul des Userformulares!
Private Sub UserForm_Initialize()
lblStand.Caption = Format(Date, "dd.mm.yyyy")
End Sub
Code eingefügt mit VBA in HTML 2.0.0.3size>
Gruß Ingolf
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Datum in Textfeld schreiben in Excel


Schritt-für-Schritt-Anleitung

Um das aktuelle Datum in ein Textfeld in Excel einzufügen, gehe wie folgt vor:

  1. Öffne dein Excel-Projekt und navigiere zum VBA-Editor (ALT + F11).

  2. Erstelle ein UserForm, falls du noch keins hast.

  3. Füge ein Textfeld (Label) in dein UserForm ein und nenne es lblStand.

  4. Füge den folgenden Code in das Codemodul deines UserForms ein:

    Private Sub UserForm_Initialize()
       lblStand.Caption = Format(Date, "dd.mm.yyyy")
    End Sub
  5. Speichere und schließe den VBA-Editor.

  6. Starte das UserForm, um das aktuelle Datum anzuzeigen.

Dieser Code stellt sicher, dass das Excel-Datum als Text im Textfeld angezeigt wird, sobald das Formular initialisiert wird.


Häufige Fehler und Lösungen

  • Fehler: "Objekt erforderlich"

    • Ursache: Du versuchst, auf das Label zuzugreifen, bevor das UserForm angezeigt wird.
    • Lösung: Stelle sicher, dass der Code im UserForm_Initialize()-Ereignis platziert ist.
  • Fehler: Datum wird nicht angezeigt

    • Ursache: Der Code wird möglicherweise zu spät ausgeführt.
    • Lösung: Wenn du das Label in einem anderen Ereignis setzt, stelle sicher, dass das UserForm bereits sichtbar ist, oder setze das Datum im UserForm_Initialize().

Alternative Methoden

Falls du das Datum in einem anderen Format oder auf eine andere Weise einfügen möchtest, kannst du folgende Methoden verwenden:

  1. Datum rückwärts schreiben:

    lblStand.Caption = Format(Date, "yyyy-mm-dd")
  2. Excel Druckdatum einfügen:

    lblStand.Caption = Format(Now, "dd.mm.yyyy hh:mm")
  3. Excel Datum in Text einbinden: Du kannst das Datum auch in einen weiteren Text kombinieren:

    lblStand.Caption = "Das heutige Datum ist: " & Format(Date, "dd.mm.yyyy")

Praktische Beispiele

Hier sind einige Beispiele, wie du das Datum in dein UserForm integrieren kannst:

  • Beispiel 1: Anzeige des aktuellen Datums

    lblStand.Caption = Format(Date, "dd.mm.yyyy")
  • Beispiel 2: Anzeige des Datums mit einem Text

    lblStand.Caption = "Heute ist der: " & Format(Date, "dd.mm.yyyy")
  • Beispiel 3: Summenbetrag zusätzlich einfügen Angenommen, du hast eine Variable summe, um den Betrag zu speichern:

    lblStand.Caption = "Summe: " & summe & ", Datum: " & Format(Date, "dd.mm.yyyy")

Tipps für Profis

  • Nutze die Now-Funktion, wenn du auch die Uhrzeit einfügen möchtest.
  • Überlege, das Datum in verschiedenen Formaten anzuzeigen, je nach Bedarf des Benutzers.
  • Verwende die Format-Funktion, um das Datum nach deinen Vorstellungen anzupassen. Experimentiere mit verschiedenen Formatierungen, um das beste Ergebnis zu erzielen.

FAQ: Häufige Fragen

1. Wie kann ich das Datum in einem anderen Format anzeigen?
Du kannst das Datum mit der Format-Funktion anpassen, z.B. Format(Date, "dd.mm.yyyy") für den deutschen Datumsstil.

2. Kann ich das Datum automatisch aktualisieren lassen?
Ja, du kannst den Code so anpassen, dass er bei bestimmten Ereignissen (z.B. Button-Klick) ausgeführt wird, um das Datum zu aktualisieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige