Hi Uwe,
dann konkretisiere ich mal bzw. stelle eine Frage - ist die neue xlsb in 2013 erstellt und falls nicht, in welcher und wie ist es mit einer 2013er?
Hallo Uwe und die Anderen,
dein Link war ja vielversprechend, hat leider aber für Excel 2013 keine Lösung gebracht. Meine Personal.xlsb wird so nicht und auch unter den "Deaktivierten Elementen" nicht angezeigt.
Alle "Spielereien", z.B. Umbenennung in *.xlam, nimmt Excel nicht an und auch die *xlsb wird als "Add-In" abgelehnt - jedoch immer noch nicht mitgeladen. Als *.xls ist sie zwar im VBA-Editor vorhanden, weil mit geladen, aber in einer Arbeitsmappe sind die Makros eben nicht verfügbar.
Eine verkorkste Situation, die ich leider nicht allein bereinigen kann.
Nocheine Idee:
hast du die Möglichkeit auf einem ganz anderen Rechner diese Datei/Mappe öffnen bzw. laden zu lassen?
So könnte man wenigstens feststellen, ob es an dem EINEN Rechner liegt oder ob die Datei evtl. in irgendeiner Form das problem darstellt.
Was bringt dir:
Code:
Sub M_snb()
MsgBox Application.StartupPath
MsgBox Dir(Application.StartupPath & "\*.*")
Msgbox Dir
End Sub
Hallo JereMaia,
leider habe ich als Ruheständler diese Möglichkeit eines anderen Rechners nicht, so dass ich deinen Hinweis nicht ausprobieren kann.
Bisher hat es ja jahrelang funktioniert und an der *.xlsb ist nichts verändert worden oder hinzugekommen.
Möglicherweise hat das ein Windows-Update (mal wieder) verursacht.
Hallo snb,
das wird mir angezeigt:
Code:
MsgBox Application.StartupPath = c:\Users\Günter\AppData\Roaming\Microsoft\Excel\xlstart
und bei:
Code:
MsgBox Dir(Application.StartupPath & "\*.*") = Personal.xlsb
sowie:
Code:
Msgbox Dir = UbitMenu.xlam
Kannst Du dir darauf einen Reim machen?
Noch nicht.
Kannst du mal 2 Screenshots schicken ?
VBEditor Projects
2 * Trust Center (wie MiW schon gefragt hat)
Es sind die richtigen und Personal.xlsb ist geladen.
Dann mal den Zugriff zur Personal.xlsb testen:
PHP-Code:
Sub M_snb()
msgbox workbooks(1).fullname
With Workbooks(1).VBProject.VBComponents("Datum_Eintragen").CodeModule
MsgBox .Lines(1, .CountOfLines)
End With
End Sub
Dann eine neue Idee. Wie wäre es, wenn Du folgendes machst:
Du erstellst aus deiner alten eine neue Personal.xlb aber:
Du kopierst erst einmal nur das Gerüst und schaust, ob diese funktioniert.
Wenn, ja kopierst du weitere Teile von der alten in die neue Mappe und überprüfst dann, ob die neue Mappe immer noch funktioniert. Und so machst Du weiter bis entweder alles wieder funktioniert, oder du die Stelle über dieser Methode findest warum die Mappe nicht mehr funktioniert.