Erstmal rechtherzlichen Dank für Eure Hilfe ohne die ich meine Datei wohl nicht fertig bekommen hätte. Ein besonderes Dankeschön möchte ich hier an Mathias L., Hajo und Harry richten.
Zum guten Schluss stellt sich allerdings jetzt doch noch ein Problem dar. Die Datei hatte ich in 2007 geschrieben, nun hat sich mein Kollege 2010 aufgespielt und dort wird der Kalender nicht angezeigt, und beim öffnen der Datei kommt die Fehlermeldung "Objekt konnte nicht gefunden werden" Meine Frage: kann ich dieses Problem durch Änderung vom Code in 2007 ändern? Wenn Ja wie, oder muss ich das ganze in 2010 ändern, auch hier, wenn ja wie. Hier ist der Code den ich eingefügt habe
Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$333:$D$333" Then
Calendar1.Left = Target.Left
Calendar1.Top = Target.Top + Target.Height
Calendar1.Year = Year(Date)
Calendar1.Month = Month(Date)
Calendar1.Day = Day(Date)
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
Vorab Danke für Eure HilfeGruß Guesa