Unten stehendes Makro, wird nur für die zwei angegebenen Zellen benötigt. Was und wo muß geändert werden, dass beim Start des Makros, der Cursor sofort in die Zelle S10 springt, bzw. aktiviert wird?
Kann mir bitte jemand bei der Lösung helfen?
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
If Intersect(ActiveCell, ActiveSheet.Range("S10,W10")) Is Nothing Then
MsgBox "Falsche Spalte"
Else
ActiveCell = UserForm1.MonthView1.Value
End If
End Sub
Danke schon mal im voraus.
Gruß
Josef