Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textfeld füllen nach Aufruf von Userform

Forumthread: Textfeld füllen nach Aufruf von Userform

Textfeld füllen nach Aufruf von Userform
31.08.2018 20:07:57
Userform
Hallo, ich habe ein Textfeld in einem Userform. Das Textfeld soll das aktuelle Datum haben, wenn ich die Userform starte. Ich habe bereits ein Button für das aktuelle Datum. Das sieht momentan so aus:
Ich starte die Userform - Maske erscheint - das Textfeld ist leer - nach drücken des Buttons erscheint das heutige Datum.
Nun möchte ich beim starten der Userform - Maske und in dem Textfeld ist das Datum autom. drin.
Wie geht das? Hab schon viel gelesen gesucht etc.. aber ich finde einfach keine Lösung. Geht das überhaupt?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textfeld füllen nach Aufruf von Userform
31.08.2018 20:13:29
Userform
benutze das Activate Ereignis der Userform
TXT_Datum =Date

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Textfeld füllen nach Aufruf von Userform
31.08.2018 22:33:09
Userform
Danke für die schnelle Antwort, aber ich kapiere die Antwort leider nicht. Bin noch nicht so fit in VBA
Anzeige
AW: Textfeld füllen nach Aufruf von Userform
31.08.2018 23:29:52
Userform
Hallo,
probiers mal so 
Private Sub UserForm_Activate()
TextBox1 = Date
End Sub


Private Sub UserForm_Initialize()
TextBox1 = Date
End Sub

Gruß
Sigi
;

Forumthreads zu verwandten Themen

VBA: UserForm mit TextBoxen
Ernst Dunkel

In UserForm1 habe ich sechs TextBoxen mit gleich Code.
Wie muss ich die untenstehende Prozedur vereinfachen, so dass der Code für alle TextBoxen in UserForm 1 gilt, ohne die Prozedur 5 mal zu kopieren?
Private Sub TextBox1_KeyPress(ByVal KeyAscii As msforms.ReturnInteger)
Dim TMP$
19.07.2002 15:34:13
Thread-ID: 138550
11 Beiträge
VBA Listbox füllen, Userform in Textbox einlesen
FUMOS

Hallo,
leider werden die Daten aus der Excel-Tabelle nicht in die Listbox eingelesen.
Wo liegt mein Fehler.
Auch möchte ich die Einträge dann in der Userform bearbeiten und dann in der Tabelle überschreiben lassen.
Kann mir jemand helfen.
https://www.herber.de/bbs/user/11622...
13.09.2017 18:40:18
Thread-ID: 1580349
2 Beiträge
VBA: Function in Userform Textbox
Bernd

Hallo zusammen,
Komme bei nachfolgendem Problem nicht weiter und bräuchte Eure Hilfe.
Also bei Verlassen derTextbox1 werden (siehe Code) über VLOOKUP die Werte die in die Textboxen eingelesen. D.h. ich suche folgenden Code sinngemäß: Nehme das Kürzel aus Textbox7 und steuere damit die F...
13.10.2017 09:15:44
Thread-ID: 1585661
8 Beiträge
VBA: Liste über Userform nacheinander füllen
Dominic

Guten Morgen liebes Forum,
ich habe aktuell eine Userform mit der eine Tabelle nach und nach mit dem Inhalt gefüllt wird.
Dies habe ich so umgesetzt: Dim lrow1 As Integer Dim lrow2 As Integer lrow1 = Sheets("DB").Cells(Sheets("DB").Rows.Count, 25).End(xlUp).Row + 1 With Sheets("DB") .C...
13.10.2017 09:18:38
Thread-ID: 1585664
4 Beiträge
VBA: Liste über Userform nacheinander füllen
Dominic

Guten Morgen liebes Forum,
ich habe aktuell eine Userform mit der eine Tabelle nach und nach mit dem Inhalt gefüllt wird.
Dies habe ich so umgesetzt: Dim lrow1 As Integer Dim lrow2 As Integer lrow1 = Sheets("DB").Cells(Sheets("DB").Rows.Count, 25).End(xlUp).Row + 1 With Sheets("DB") .C...
13.10.2017 09:21:43
Thread-ID: 1585666
2 Beiträge
Anzeige
Textboxen(1 to x) in Userform hinzufügen via VBA
Florian

Hallo zusammen,
ich möchte via VBA in mein UserForm neue Textboxen hinzufügen. Meine Idee sieht so aus, klappt aber nicht:Dim myTextBox(1 To 4) As TextBox
Dim i, j As Integer
For i = 1 To 100
If ComboBox5.Text = ActiveSheet.Cells(i, 5) Then
If ComboBox5.Text "" Then
For j = 1...
24.06.2003 15:58:28
Thread-ID: 272884
3 Beiträge
Anzeige
VBA Userform Textbox fehler
Rudi

Hallo
ich habe folgendes Problem! In einer Userform lasse ich mir Daten aus einer Tabelle anzeigen,
*TextBox1 = Format(Range("DatenInvestition!G32").Value, "#0")*
und schreibe die Daten auch wieder zurück.
*Worksheets("DatenInvestition").Range("G32") = CDbl(TextBox1)*
Pass...
14.07.2004 10:54:33
Thread-ID: 455027
3 Beiträge
VBA UserForm - Textbox Wert in Tabelle
Moritz

Hallo liebe Experten,
ich habe eine UserForm erstellt mit der ich gewisse Informationen in eine Tabelle übertragen möchte. Funktioniert auch alles soweit nur habe ich ein kleines Problem zu dem ich keine Lösung finde.
Die Werte, die ich in der UserForm in die verschiedenen Textboxen ein...
03.11.2020 14:01:26
Thread-ID: 1790889
3 Beiträge
VBA Userform Button Speichern und neuen Wert in Textbox
DLMuc
Hallo liebe VBA Gemeinde,

nach dem ich hier schon sehr viele Tipps, Trick's und Hilfestellungen gefunden habe, komme ich voran. Aber bei einem Problem hängt es bei mir massiv bzw. ich finde überhaupt keine Lösung und hoffe auf Unterstützung von Euch.

Istzustand:
Es besteht ein...
03.02.2024 01:19:07
Thread-ID: 1963332
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Textfeld automatisch füllen in Excel Userform

Schritt-für-Schritt-Anleitung

Um ein Textfeld in einer Excel Userform automatisch mit dem aktuellen Datum zu füllen, gehst Du wie folgt vor:

  1. Öffne den VBA-Editor in Excel, indem Du ALT + F11 drückst.

  2. Erstelle eine neue Userform oder öffne eine bestehende.

  3. Füge ein Textfeld (TextBox1) zu Deiner Userform hinzu.

  4. Gehe zu den Eigenschaften der Userform und wähle das Ereignis Activate aus.

  5. Füge den folgenden VBA-Code ein:

    Private Sub UserForm_Activate()
   TextBox1.Value = Date
End Sub

  6. Alternativ kannst Du auch das Initialize-Ereignis verwenden:

    Private Sub UserForm_Initialize()
   TextBox1.Value = Date
End Sub

  7. Schließe den VBA-Editor und teste Deine Userform.

Damit wird das Textfeld beim Aufruf der Userform automatisch mit dem aktuellen Datum gefüllt.

Häufige Fehler und Lösungen

  • Textfeld bleibt leer: Stelle sicher, dass Du den richtigen Namen für das Textfeld verwendest. Überprüfe, ob TextBox1 tatsächlich der Name Deines Textfeldes ist.
  • Code wird nicht ausgeführt: Achte darauf, dass Du den Code im richtigen Ereignis (Activate oder Initialize) einfügst.
  • VBA nicht aktiviert: Stelle sicher, dass Makros in Excel aktiviert sind, um den VBA-Code auszuführen.

Alternative Methoden

Falls Du ein Excel Formular Textfeld zum Ausfüllen hast, kannst Du auch alternative Steuerelemente verwenden:

  • ComboBox: Statt eines Textfeldes könntest Du auch eine ComboBox nutzen, um das Datum anzuzeigen oder auszuwählen.
  • Label: Du kannst auch ein Label verwenden, um das Datum anzuzeigen, wenn das Textfeld nicht bearbeitet werden soll.

Praktische Beispiele

Hier sind einige praktische Beispiele für das Füllen von Textfeldern:

  1. Aktuelles Datum und Uhrzeit:

    Private Sub UserForm_Activate()
   TextBox1.Value = Now
End Sub

  2. Formatierung des Datums:

    Private Sub UserForm_Activate()
   TextBox1.Value = Format(Date, "dd.mm.yyyy")
End Sub

Tipps für Profis

  • Nutze das Format-Funktion, um das Datum in einem benutzerdefinierten Format anzuzeigen.
  • Experimentiere mit weiteren Steuerelementen in Deiner Userform, um die Benutzererfahrung zu verbessern.
  • Halte Deinen Code ordentlich und gut dokumentiert, um die Wartung zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich das Datum in einem anderen Format anzeigen?
Du kannst die Format-Funktion verwenden, um das Datum nach Deinen Wünschen zu formatieren, z.B. Format(Date, "dd.mm.yyyy").

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen (Excel 2010 und später) funktionieren. Achte darauf, dass Du die Makros aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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