ich habe in einer Tabelle das Kalender Steuerelement eingebunden (direkt in Tabelle, keine UF). Bei mir funzt das einwandfrei, aber bei meinem Kollegen ist das Steuerelement komischerweise schwarz.
Die mscal.ocx haben wir dazu auf beiden Rechnern nach system32 kopiert und registriert.
Die Macros zur Darstellung habe ich mir ergoogelt:
Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub
Da ich die Excel - Datei bald an viele User weiterverteilen muss, ist das manuelle Ändern über die Properties natürlich extrem unpraktisch - ausserdem konnte ich das bei meinem Kollegen noch nicht testen.Wie kann ich die Farben per VBA definieren -bzw was muss ich tun um das Steuerelement in den "Standardfarben" darzustellen?
Danke und Gruss
Fettertiger