Sub atst()
Dim strT As String, datD As Date, rngF As Range
strT = "26-Dez-2008"
datD = CDate(strT)
Set rngF = Cells(Day(datD) + 1, 2 * Month(datD) - 1)
MsgBox rngF.Address
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Private Sub CommandButton3_Click()
If Not CDate(TextBox1)
Sub atst()
Dim strT As String, datD As Date, rngF As Range
strT = UserForm1.TextBox1
datD = CDate(strT)
Set rngF = Cells(Day(datD) + 3, 2 * Month(datD))
Application.Goto rngF
End Sub
Warum 2 UFs mit Kalender? 1 reicht. Weiter solltest du den Kalender mit
Private Sub UserForm_Activate()
Me.Calendarcontrol = Date
End Sub