Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$R$97" Then Call OpenCalendar
If Target.Address = "$R$98" Then Call OpenCalendar
If Target.Address = "$R$99" Then Call OpenCalendar
If Target.Address = "$R$100" Then Call OpenCalendar
If Target.Address = "$R$101" Then Call OpenCalendar
If Target.Address = "$R$102" Then Call OpenCalendar
If Target.Address = "$R$103" Then Call OpenCalendar
If Target.Address = "$R$104" Then Call OpenCalendar
If Target.Address = "$R$105" Then Call OpenCalendar
If Target.Address = "$R$106" Then Call OpenCalendar
If Target.Address = "$S$97" Then Call OpenCalendar
If Target.Address = "$S$98" Then Call OpenCalendar
If Target.Address = "$S$99" Then Call OpenCalendar
If Target.Address = "$S$100" Then Call OpenCalendar
If Target.Address = "$S$101" Then Call OpenCalendar
If Target.Address = "$S$102" Then Call OpenCalendar
If Target.Address = "$S$103" Then Call OpenCalendar
If Target.Address = "$S$104" Then Call OpenCalendar
If Target.Address = "$S$105" Then Call OpenCalendar
If Target.Address = "$S$106" Then Call OpenCalendar
End Sub
<strong>Der Code hinter dem Formular:
</strong>Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim cell As Object
For Each cell In Selection.Cells
cell.Value = DateClicked
Next cell
Unload Me
End Sub
Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
Me.MonthView1.Value = ActiveCell.Value
End If
End Sub
<strong>
Der Code in dem Modul:
</strong>Sub OpenCalendar()
frmCalendar.Show
End Sub
Wenn mir jemand einen Tipp oder eine Lösung geben kann wäre ich sehr dankbar.
Habe Grundkentnisse aber bin kein VBA Profi.
Vielen Dank für die Hilfe.