Fehler beim Kompilieren

[Thomasius]

hallo Experten ich habe seit heute Office21 pro und habe das problem wenn ich das aufrufe  die Fehlermeldung kommt
Fehler beim Komplilieren rojekt oder Bibliothek nicht gefunden

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabe As Variant
On Error GoTo fehler1
If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
          If Not IsNumeric(Target) Then Target.Value = UCase(Target)
      End If
If Not Intersect(Target, Range("C2,H2,F37,F43,C5:E35")) Is Nothing Then
    Application.EnableEvents = False
    With Target
        If Not IsNumeric(.Value) Then GoTo fehler1
        If IsEmpty(Target) Then
            Target.Value = ""
            GoTo fehler1
        End If
        .Value = Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2)
        ' funkt am besten
        ' Wenn Std über 24 und gleichzeit Minuten über 60 erfasst werden, wird Text zurückgegeben.
        .NumberFormat = "[h]:mm"
    End With
End If
If Not Intersect(Target, Range("f47")) Is Nothing Then
    Application.EnableEvents = False
    With Target
        If Not IsNumeric(.Value) Then GoTo fehler1
        If IsEmpty(Target) Then
            Target.Value = ""
            GoTo fehler1
        End If
        .Value = Left(Format(Target, "00000"), 3) & ":" & Right(Target, 2)
        ' funkt am besten
        ' Wenn Std über 24 und gleichzeit Minuten über 60 erfasst werden, wird Text zurückgegeben.
        .NumberFormat = "[h]:mm"
    End With
End If
fehler1:
Application.EnableEvents = True

End Sub

[Thomasius]

Kann das an en mini Kalender liegen den hab ich mit drauf aber kann ihn nicht in der version office21 finden?????

[Thomasius]

Kann das an den mini Kalender liegen den hab ich mit drauf aber kann ihn nicht in der version office21 finden?????

[maninweb]

Hallo,

das kann sein. Rufe mal im VBA-Editor Extras / Verweise auf. Ist dort ein angehaktes Element zu finden, wo Nicht gefunden angegeben ist?

Gruß

[Thomasius]

{maninweb - gelöscht}

[maninweb]

Hallo,

das, was Du da gepostet hattest, war vermutlich ein Bild, allerdings als binäre Zeichenfolge. Die wirren Zeichen habe ich gelöscht. Es ist jedoch ein Bild als Link sichtbar.

Aus dem Bild geht hervor, dass Deine Datei das MS Calendar Control Steuerelement verwendet, das nicht mehr vorhanden ist. Gut möglich, dass dieses bei der
Installation der neuen Version von Office deregistriert und/oder gelöscht wurde. Der Sinn dahinter ist, dass veraltete Steuerelemente von MS wegen Sicherheits-
lücken gesperrt werden. Du könntest das Häkchen wegmachen - sofern Du im Code nicht auf das Steuerelement zugreifst. Ansonsten müsstest Du Dir eine
andere Lösung suchen - sprich, entweder ein anderes Steuerelement oder ganz darauf verzichten.

Sofern die Datei MSCAL.OCX noch (irgendwo) auf Deinem Rechner vorhanden ist, könnte man dieses ggf. neu registrieren. Das kann, muss aber nicht
immer funktionieren.

Gruß

[Thomasius]

super danke erstmal  ich könnte auf den mini kalender verzichten weiss abernicht wie ich ihn wegbekomme kann dort nix anklicken reagiert garnicht
gruss thomas

[maninweb]

Hallo,

meinst Du, dass Du das Häkchen in dem Dialog zu den Verweisen nicht wegbekommst?

Sind bspw. UserFormen in der Datei drin, wo das Kalendersteuerelement verwendet wird? Wenn Ja, müsstest Du die
Steuerelemente entfernen. Plus den dazugehörigen Code. Du könntest die Datei hier auch hochladen, falls Du nicht
weiterkommst.

Gruß

[Thomasius]

der kalender ist bei Dienstplan
danke

[maninweb]

Hallo,

ging tatsächlich nicht so einfach. Wie auch immer, ich habe das Kalendersteuerelement und die Bibliothek entfernt.
Hier gibt es übrigens ein Kalender-Add-In von einem MS Mitarbeiter (ggf. zumindestens früher)

http://samradapps.com/s/samradapps_datep...221114.zip
http://samradapps.com/datepicker

Gruß