Projektfehler - Verweise nicht einsehbar

Moin zusammen,
ich nutze Office365 auf einem Arbeitsrechner.
In den letzten Tagen immer wieder an einer Excel-Datei herumgedoktert und verschiedene Private Subs hinterlegt um sie ohne Makroweitergabe auch anderen Usern zugänglich zu machen.
Seit heute Morgen gibt es nun beim Öffnen der Datei den Fehler "Projekt oder Bibliothek nicht gefunden", die Datei lässt sich noch normal bedienen, die Private Subs werden aber nicht mehr ausgeführt.
Auch im VBA Editor wird nichts angezeigt im Tabellenblatt. Nach Suche im Forum habe ich versucht die Verweise zu öffnen um das Problem zu lösen, leider ist dies nicht möglich, es öffnet sich nichts nach dem Draufklicken. Auch nach "Ausführen" - "Zurücksetzen" (wie hier beschrieben: https://www.herber.de/forum/archiv/1072to1076/1075436_Funktion_Format_Menue_Verweise_deaktiviert.html), ändert sich dies nicht.
Am Speicherort der Datei o.ä. hat sich derweil nichts geändert. Auch eine andere Datei die ähnlich aufgebaut ist, die gleichen Private Subs und am selben Speicherort liegt, lässt sich noch ganz normal bedienen ohne Fehlermeldung.
Könnt ihr mir helfen, damit ich die Datei wieder weiternutzen kann?
Lieben Dank schon einmal und beste Grüße
Korbinian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Korbinian,
ich kann keinen fehlerhaften Verweis in deiner Mappe finden. Da sind nur die 4 Standardverweise aktiviert.
Allerdings ich dein Code verbesserungswürdig.
Teste mal:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    'PAC
    If Target.Address = "$C$1" Then
        Application.EnableEvents = False
        Target.Offset(4, 12).Value = Target.Value
        Target.Offset(16, 12).Value = Target.Value
        Target.Offset(4, 15).Value = Target.Value
        With Worksheets("Yieldlab PG")
            .Range("C1").Value = Target.Value
            .Range("C23").Value = Target.Value
            .Range("C46").Value = Target.Value
            .Range("C72").Value = Target.Value
        End With
        With Worksheets("Yieldlab Private Auction")
            .Range("C1").Value = Target.Value
            .Range("C23").Value = Target.Value
            .Range("C46").Value = Target.Value
            .Range("C76").Value = Target.Value
        End With
        With Worksheets("Yieldlab Open Auction")
            .Range("C1").Value = Target.Value
            .Range("C23").Value = Target.Value
            .Range("C46").Value = Target.Value
            .Range("C76").Value = Target.Value
        End With
        Worksheets("GAM Studio71 PG").Range("C1").Value = Target.Value
        Application.EnableEvents = True

        'Agentur
    ElseIf Target.Address = "$C$2" Then
        Application.EnableEvents = False
        Target.Offset(4, 12).Value = Target.Value
        Target.Offset(16, 12).Value = Target.Value
        Target.Offset(4, 15).Value = Target.Value
        With Worksheets("Yieldlab PG")
            .Range("C2").Value = Target.Value
            .Range("C24").Value = Target.Value
            .Range("C47").Value = Target.Value
            .Range("C73").Value = Target.Value
        End With
        With Worksheets("Yieldlab Private Auction")
            .Range("C2").Value = Target.Value
            .Range("C24").Value = Target.Value
            .Range("C47").Value = Target.Value
            .Range("C77").Value = Target.Value
        End With
        With Worksheets("Yieldlab Open Auction")
            .Range("C2").Value = Target.Value
            .Range("C24").Value = Target.Value
            .Range("C47").Value = Target.Value
            .Range("C77").Value = Target.Value
        End With
        Worksheets("GAM Studio71 PG").Range("C2").Value = Target.Value
        Application.EnableEvents = True

        'Land
    ElseIf Target.Address = "$C$3" Then
        Application.EnableEvents = False
        Target.Offset(4, 12).Value = Target.Value
        Target.Offset(16, 12).Value = Target.Value
        Target.Offset(4, 15).Value = Target.Value
        With Worksheets("Yieldlab PG")
            .Range("C3").Value = Target.Value
            .Range("C25").Value = Target.Value
            .Range("C48").Value = Target.Value
            .Range("C74").Value = Target.Value
        End With
        With Worksheets("Yieldlab Private Auction")
            .Range("C3").Value = Target.Value
            .Range("C25").Value = Target.Value
            .Range("C48").Value = Target.Value
            .Range("C78").Value = Target.Value
        End With
        With Worksheets("Yieldlab Open Auction")
            .Range("C3").Value = Target.Value
            .Range("C25").Value = Target.Value
            .Range("C48").Value = Target.Value
            .Range("C78").Value = Target.Value
        End With
        Worksheets("GAM Studio71 PG").Range("C3").Value = Target.Value
        Application.EnableEvents = True

        'Cluster
    ElseIf Target.Address = "$P$2" Then
        Application.EnableEvents = False
        Target.Offset(6, 2).Value = Target.Value
        Target.Offset(18, -1).Value = Target.Value
        Application.EnableEvents = True
    ElseIf Target.Address = "$P$3" Then
        Application.EnableEvents = False
        Target.Offset(6, -1).Value = Target.Value
        Target.Offset(6, 2).Value = Target.Value
        Target.Offset(18, -1).Value = Target.Value
        Application.EnableEvents = True
    End If
End Sub

Public Sub Filter_zurücksetzen()
    Application.EnableEvents = False
    Range("C1").Value = "(Alle)"
    Range("C2").Value = "(Alle)"
    Range("C3").Value = "(Alle)"
    Range("C4").Value = "Ja"
    Range("P2").Value = "(Alle)"
    Range("P3").Value = "(Alle)"
    Application.EnableEvents = True
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Projektfehler - Verweise nicht einsehbar

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread