Kalender in UF - Daten in Textboxes

Hallo,
habe den Hinweis von Hajo aufgegriffen und nach "gebastelten" Kalendersteuerelementen im Forum gesucht. Bin auch fündig geworden, weiß nun nur nicht, wie ich es für meine Bedürfnisse anpassen kann. In der Urfassung wird das Datum in eine jeweils aktive Zelle einer Tabelle eingetragen. Ich würde es gerne jeweils in einem UF in "vom" (Textbox5) und "bis" (Textbox6) eingetragen bekommen. In Textbox 7 sollte dann die Differenz zwischen vom - bis in Monaten mit zwei Kommastellen errechnet werden. Kann mir da jemand mit der Anpassung helfen. Habe mir direkt erlaubt, anbei eine Mustermappe beizufügen. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
https://www.herber.de/bbs/user/74460.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
habe nun im folgenden Code eine Änderung vorgenommen, die dazu führt, hierüber die Textbox5 (vom) zu "beschicken" - was kann/muß ich nun machen, eine Auswahlmöglichkeit für Textbox 6 zu erhalten? Im Userform1 sollte Steuerung über CommandButton erfolgen, der Code akzeptiert aber nicht die IF.. Then Auswahl. Bin weiterhin für jede Hilfestellung dankbar.
Gruß - Wolfgang
Akzeptierte Möglichkeit:

Option Explicit
Public WithEvents Lbl As MSForms.Label
Private Sub Lbl_Click()
UserForm1.TextBox5 = SelectDate(Lbl.Tag)
End Sub

Code läuft so nicht, wie verändern?:

Option Explicit
Public WithEvents Lbl As MSForms.Label
Private Sub Lbl_Click()
'ActiveCell = SelectDate(Lbl.Tag)
If UserForm1.CommandButton1 = True Then
UserForm1.TextBox5 = SelectDate(Lbl.Tag)
End If
If UserForm1.CommandButton2 = True Then
UserForm1.TextBox = SelectDate(Lbl.Tag)
End If
End Sub

Option Explicit Public WithEvents Lbl As MSForms.Label Private Sub Lbl_Click() If ufCalendar.OptionButton1 = True Then UserForm1.TextBox5 = SelectDate(Lbl.Tag) End If If ufCalendar.OptionButton2 = True Then UserForm1.TextBox6 = SelectDate(Lbl.Tag) Call Zeitberechnen End If End Sub Sub Zeitberechnen() If IsDate(UserForm1.TextBox5) And IsDate(UserForm1.TextBox6) Then UserForm1.TextBox7 = Round((Abs(CLng(CDate(UserForm1.TextBox5)) - CLng(CDate(UserForm1. _ TextBox6))) + 1) / 30.4, 2) Else 'TextBox7 = "" MsgBox "vollständiges Datum", vbCritical Exit Sub End If End Sub

Function SelectDate(Optional dDate As Date = 0) As Date Dim cntr As Control With ufCalendar 'reset .fraShow.lblShow = "" For Each cntr In .fraDays.Controls If cntr.BackColor = &HFFFF& Then Select Case Int(Right(cntr.Name, 2)) Mod 7 Case 0, 6: cntr.BackColor = &HF0F0F0 Case Else: cntr.BackColor = &HFFFFFF End Select Exit For End If Next 'mark selected day If dDate Then If Year(dDate) >= .scbYear.Min And Year(dDate)

Beliebteste Forumthreads (12 Monate)

Kalender in UF - Daten in Textboxes

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kalender in UF - Daten in Textboxes

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread