Kalendersteuerelement Monat Jahr
01.09.2005 15:00:24
Stefanie
ich habe das Kalnder - Steuerelement11.0 in eine Tabelle eingebaut, mit folgendeem Code:Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaBereich As Range
If Target.Count > 1 Then Exit Sub
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:B10090, C3:C100")
If Not Intersect(Target, RaBereich) Is Nothing Then
FRM_Kalender.Show
ElseIf Target.Row >= 4 And Target.Row <= 7 And Target.Column <= 12 Then
FRM_Kalender.Show
End If
' ActiveSheet.protect ("Passwort")
Set RaBereich = Nothing
End Sub
und in der User Form:
Option Explicit
Private Sub KAL_Kalender_Click()
' If KAL_Kalender.Value <> "" Then ActiveCell = KAL_Kalender.Value
ActiveCell = KAL_Kalender.Value
Me.Hide
End Sub
Private Sub UserForm_Initialize()
KAL_Kalender = Date
End Sub
Nun möchte ich gern etwas ähnliches in einer anderen Tabelle haben. Dort soll allerdings nur der Monat und das Jahr auswählbar sein (Tage und Wochentage spielen kein Rolle). Ich habe versucht eine umbenannte Kopie der Userform einzufügen und diese dann zu bearbeiten. Leider war das nicht möglich, da die Fehlermeldung kam, dass ich nicht zwei mal die gleiche User Form in der Tabelle laden kann (obwohl ich sie umbenannt habe). Wie kann ich mein Vorhaben realisieren? Kann mir da jemand weiterhelfen, wie ich das Steuerelement erstens nur mit Monat und Jahr anzeigen lasse und es in einem anderen TAbelenblatt in die gewünschten Spalten einfügen kann?
Vielen Dank im Voraus für Eure Mühe.
Beste Grüße
Stefanie