Private Sub SpinButton1_SpinDown()
[c2] = DateSerial(Year([c2]), Month([c2]) - 1, Day([c2]))
End Sub
Private Sub SpinButton1_SpinUp()
[c2] = DateSerial(Year([c2]), Month([c2]) - 1, Day([c2]))
End Sub
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub SpinButton1_Change()
Range("C2") = DateSerial(2011, SpinButton1, 1)
End Sub
Um einen Spinbutton in einer Userform zu erstellen, der das Datum in einer Excel-Tabelle verändert, folge diesen Schritten:
ALT + F11, um den VBA-Editor zu starten.Private Sub SpinButton1_Change()
Range("C2").Value = DateSerial(Year(Range("C2").Value), SpinButton1.Value, Day(Range("C2").Value))
End SubPrivate Sub SpinButton1_SpinUp()
SpinButton1.Value = SpinButton1.Value + 1
End Sub
Private Sub SpinButton1_SpinDown()
SpinButton1.Value = SpinButton1.Value - 1
End SubFehler: Der Spinbutton funktioniert nicht.
SpinButton1 referenziert wird.Fehler: Das Datum wird nicht korrekt angezeigt.
Wenn du keinen Spinbutton verwenden möchtest, kannst du auch die folgenden Methoden in Betracht ziehen:
Hier sind einige praktische Beispiele, wie du den Spinbutton für unterschiedliche Datumsänderungen nutzen kannst:
SpinButton1_Change Code, um auch das Jahr zu berücksichtigen:Private Sub SpinButton1_Change()
Range("C2").Value = DateSerial(SpinButton1.Value, Month(Range("C2").Value), Day(Range("C2").Value))
End SubUserForm_Initialize-Methode, um den Spinbutton mit dem aktuellen Monat und Jahr zu initialisieren.1. Wie verbinde ich die beiden Makros mit dem Spinbutton? Du kannst die oben genannten Subroutinen direkt im Code des Spinbuttons einfügen.
2. Welche Excel-Version benötige ich für die Verwendung von Spinbuttons? Die Verwendung von Spinbuttons ist in Excel VBA ab Version 2007 möglich. Stelle sicher, dass du die Entwickleroptionen aktiviert hast.