ich hab da wider was.
In meiner Tabelle1 in der Spalte H hätte ich gerne hinter jeder Zelle einen Kalender versteckt. Immer wenn ich eine Zelle in der Spalte H doppelt anklicke soll sich ein Dropdown Kalender öffnen. Das Datum welches ich ausgesucht habe soll dann in die aktive Zelle übernommen warden. Ich habe mir einen Code aus dem Netz Gesuch der aber leider bei Excel 2010 nicht funktioniert
Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$24" Then
Calendar1.Left = Target.Left
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
Danke im voraus