Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

SpinButton mit TextBox verknüpfen

Forumthread: SpinButton mit TextBox verknüpfen

SpinButton mit TextBox verknüpfen
Tim
Hallo,
ich habe eine UserForm mit einem SpinButton und einer TextBox.
Die TextBox zeigt das aktuelle Datum an.
Gibt es eine Möglichkeit, den SpinButton so zu programmieren, dass man damit den Tag in der TextBox um jeweils 1 vorwärts bzw. rückwärts zählen kann ? (Evtl. mit dem Umweg über eine Zelle ?).
VG und vielen Dank im Voraus,
Tim
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: SpinButton mit TextBox verknüpfen
23.07.2012 01:37:21
Josef

Hallo Tim,
' **********************************************************************
' Modul: UserForm2 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub SpinButton1_SpinDown()
  If IsDate(TextBox1) Then
    TextBox1 = Format(CDate(TextBox1) - 1, "dd.MM.yyyy")
  Else
    TextBox1 = Format(Date, "dd.MM.yyyy")
  End If
End Sub


Private Sub SpinButton1_SpinUp()
  If IsDate(TextBox1) Then
    TextBox1 = Format(CDate(TextBox1) + 1, "dd.MM.yyyy")
  Else
    TextBox1 = Format(Date, "dd.MM.yyyy")
  End If
End Sub



« Gruß Sepp »

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige