Ich beabsichtige Hajo's Vorlage für mein Projekt zu verwenden und habe fast alles davon eingepasst.
Aber ich bekomme eine Fehlermeldung und finde nicht den Fehler.
Da sich hier eine Menge VBA Profis befinden und Hajo auch hier ist, dachte ich mir, dass mir eventuell jemand helfen kann.
Und zwar möchte ich im UF frm_Tag, dass ich per Rechtsklick auf des jeweiligen Blattes Range _ B12:B42 aufrufe, im Textfeld "txt_BeginnDatum" per Doppelklick die UF frm_Kalender ein Datum auswählen. Wenn ich ein Datum auswähle kommt aber die Fehlermeldung "Laufzeitfehler 438 - Objekt unterstützt die Eigenschaft oder Methode nicht" und der Debugger bleibt bei
Private Sub Label_Click()
If Month(Label.tag) = Month(DaDatumKa) Then
ObUserForm.Controls(frm_Kalender.Lbl_Datum.tag) = Label.tag _
Unload frm_Kalender ' UseerForm verlassen
Else
Erstellen Label.tag ' ausgewählten Monat anzeigen
End If
End Sub
hängen.
Ich schicke mal das Projekt in abgespeckter Version.
https://www.herber.de/bbs/user/133774.xlsm
Besten Dank für eure Hilfe im Voraus.
LG
Peer