Sehr geehrte Damen und Herren,
seit ein paar Tagen lässt sich keine Excel-Datei mehr normal öffnen. Das Programm an sich lässt sich öffnen, aber keine einzelne Datei. Manchmal dauert es fast 2 Min. und dann geht es. Ich habe schon alles versucht: Com-Adds auszuschalten. Sobald ich in den Optionen war und gehe dann wieder auf die Excel-Datei geht sie normal auf. Mache ich dann wieder alles zu und versuche es nochmal, funktioniert wieder nichts. Auch andere Anwendungen ignorieren, die Dynamischen Datenaustausch ….. nutzt nichts ebenso nutzt es nichts, alles auszuschalten in der ´geschützte Ansicht im Trust Center´. In ihrer Pannenhilfe finde ich auch nichts.
Was muss ich tun, damit mein Excel wieder normal funktioniert.
Zur Info: Ich habe Office 365.
Vorab schon mal Danke für Ihre Hilfe.
Beste Grüße – Désirée Alvarez
Hallo Frau Alvarez,
ich habe Ihnen mal ein VBA-Programm geschrieben, welches jeweils beim Speichern einer Arbeitsmappe automatisch eine Sicherungskopie auf OneDrive erzeugt.
Das Programm muss in jeder Arbeitsmappe vorhanden sein, für welche dieses Sicherungsverfahren arbeiten soll.
Um das Programm in eine Arbeitsmappe zu übernehmen, speichern Sie die betreffende Arbeitsmappe zuerst als xlsm-Arbeitsmappe (wenn sie das nicht schon ist).
Dann wechseln Sie mit Alt+F11 zur VBA-Oberfläche und machen im Projektexplorer einen Doppelklick auf „DieseArbeitsmappe“.
In das rechts erscheinende Code-Fenster fügen Sie den folgenden Code ein:
Option Explicit
Private Const Sachgebiet As String = „Sicherung auf OneDrive bei jedem Speichern, V. 1.0“
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim symbol As Long
Dim pfad As String
Dim zf As String
If SaveAsUI Then Exit Sub
´ ######################################################
´ Hier „Benutzername“ durch Ihren Benutzernamen ersetzen
´ und prüfen, ob das Unterverzeichnis „Dokumente“ auf
´ OneDrive vorhanden ist.
´ Beispiel:
´ pfad = „C:UsersKarl MeierOneDriveDokumente“
pfad = „C:UsersBenutzernameOneDriveDokumente“
´ ######################################################
On Error GoTo Fehlerbeh
If Dir(pfad, vbDirectory) <> „“ Then
Me.SaveCopyAs Filename:=pfad & „“ & Me.Name
Application.StatusBar = „Sicherung auf: “ & pfad
zf = „Erfolgreiche Sicherung der Arbeitsmappe“ & vbNewLine & vbNewLine & _
„“““ & Me.Name & „“““ & vbNewLine & vbNewLine & _
„im Verzeichnis“ & vbNewLine & vbNewLine & _
„“““ & pfad & „““.“
symbol = vbInformation
Else
Application.StatusBar = „Pfad „““ & pfad & „““ ist nicht verfügbar!“
zf = „Keine Sicherung auf: “ & vbNewLine & pfad
symbol = vbCritical
End If
MsgBox Prompt:=zf, _
Buttons:=symbol, _
Title:=Sachgebiet
GoTo Ende
Fehlerbeh:
zf = „Problem bei der Sicherung auf“ & vbNewLine & _
pfad & vbNewLine & vbNewLine & _
„Fehlerbeschreibung:“ & vbNewLine & Err.Description
MsgBox Prompt:=zf, _
Buttons:=vbCritical, _
Title:=Sachgebiet
Ende:
Application.StatusBar = Empty
End Sub
Ich füge Ihnen eine Arbeitsmappe mit diesem Code in der Anlage bei (in gezippter Form, da hier xlsm-Dateien nicht erlaubt sind).
Mit freundlichen Grüßen
Dieter Klemke