Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

im Formularfeld ein Datum ändern

Forumthread: im Formularfeld ein Datum ändern

im Formularfeld ein Datum ändern
14.11.2016 16:36:39
Januel
Hallo Fans,
ich hab in einem Formular ein Datumsfeld das das aktuelle Datum beim anzeigen zeigt.
Private Sub userform_initialize()
With UserForm1
TextBoxDatum.Value = Format(Date)
End With
End Sub
so nun möchte ich mit einer Schalfläche + das das Datum bei jeden drücken sich um 1 tag weiter geht.
Mit TextBoxDatum.Value = Format(Date)+1 erreiche ich was auch klar ist das nur der nächste Tag angezeigt wird.
Ich möchte auch das der wert sich verringert bei einer - Schaltfläche.
wie kann ich das im TextBoxDatum Feld befindliche Datum verändern.
Vielen Dank für Hilfe
Karl-Heinz
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: im Formularfeld ein Datum ändern
14.11.2016 16:49:01
UweD
Hallo
mach es so...
Private Sub userform_initialize()
    With UserForm1
        .TextBoxDatum.Value = Date
    End With
End Sub

Private Sub CommandButton1_Click()
    With UserForm1.TextBoxDatum
        .Value = CDate(.Value) + 1
    End With
End Sub
Private Sub CommandButton2_Click()
    With UserForm1.TextBoxDatum
        .Value = CDate(.Value) - 1
    End With
End Sub
LG UweD
Anzeige
AW: im Formularfeld ein Datum ändern
14.11.2016 16:53:21
Januel
Hallo Uwe,
vielen vielen Dank es funktioniert genauso wie ich es brauche.
Karl-Heinz
AW: im Formularfeld ein Datum ändern
14.11.2016 18:46:12
Frank
Hallo Karl Heinz!
Noch 'ne Idee, setze neben das Textfeld einen SpinButton und weise ihm folgendes Makro zu.
Private Sub spinbutton1_spinUp()
Dim datDate As Date
If IsDate(TextBox1) Then
datDate = CDate(TextBox1.Value)
datDate = datDate + 1
TextBox1 = Format(datDate, "dd.mm.yyyy")
End If
End Sub


Private Sub spinbutton1_spinDown()
Dim datDate As Date
If IsDate(TextBox1) Then
datDate = CDate(TextBox1.Value)
datDate = datDate - 1
TextBox1 = Format(datDate, "dd.mm.yyyy")
End If
Rückmeldung wäre nett.
Gruß Frank H.
Anzeige
AW: im Formularfeld ein Datum ändern
14.11.2016 19:11:44
Januel
Hallo Frank
hab ich gerade ausprobiert, funktioniert super.
werde sehen was optisch besser passt. Ist eine gute Idee
vielen Dank
Karl-Heinz
;

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