Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA Code funktioniert nicht immer
20.04.2022 16:11:54 Hape
NotSolved
21.04.2022 13:10:42 Gast51778
NotSolved

Ansicht des Beitrags:
Von:
Hape
Datum:
20.04.2022 16:11:54
Views:
45
Rating: Antwort:
  Ja
Thema:
Excel VBA Code funktioniert nicht immer

Hallo zusammen, 

ich habe eine Datei mit einem Dashboard erstellt, dieses Dashboard wird durch eine andere Datei gefüttert... diese Datei wird von der eigentlichen Dashboard-Datei durch einen Code geöffnet. Geht diese Datei auf, soll sie durch einen Code minimiert werden... so, dass der User mit dieser Datei auch nicht viel anfangen kann. Geschützt ist die Datei aber je weniger er von der Datei weiß und mitbekommt, desto besser. Diese Datei ist die Datei, die ich regelmäßig update und die neusten Daten der Dashboarddatei liefert. Es gibt ca. 10 verschiedenen Dashboards-Datei, die sich unterschiedliche Daten jeweils aus der einen Datendatei abgreifen...

 

Mein Problem ist folgendes... manchmal gehen zwar beide Dateien auf aber es gibt keine Verbindung der Verlinkungen. Dann funktioniert ab und zu die Minimierung der Datendatei nicht oder der Fullscreen wird nicht aktiviert...  hier mal den Code, den ich für die einzelnen Datei geschrieben habe:

 

Dashboarddatei:

in "DieseArbeitsmappe" eingefühgt:

Private Sub workbook_open()

'
' öffnenDatenbank Makro

Application.DisplayFormulaBar = False
  With ActiveWindow
     .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
   .DisplayWorkbookTabs = False
End With
    ActiveWindow.DisplayHeadings = False
    


  On Error GoTo FEHLER
  Dim Blatt As Worksheet, wksActive As Worksheet
  Dim s As String
  Application.ScreenUpdating = False
  Set wksActive = ActiveSheet
  For Each Blatt In Worksheets
    Blatt.Activate
    With ActiveWindow
    .DisplayHeadings = False
    End With
  Next Blatt
  wksActive.Activate
FEHLER:
  On Error GoTo 0
  Application.ScreenUpdating = True

Application.DisplayFullScreen = True

ActiveWorkbook.FollowHyperlink Address:="Adresse des freigegebenen Links über onedrive"
    

    
End Sub

 

und hier der Link der Datendatei: 

 

Private Sub Workbook_Open()

Workbooks("Name der Datei").Activate

Application.DisplayFormulaBar = False
  With ActiveWindow
     .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
   .DisplayWorkbookTabs = False
End With
    ActiveWindow.DisplayHeadings = False
    
Application.WindowState = xlMinimized

  On Error GoTo FEHLER
  Dim Blatt As Worksheet, wksActive As Worksheet
  Dim s As String
  Application.ScreenUpdating = False
  Set wksActive = ActiveSheet
  For Each Blatt In Worksheets
    Blatt.Activate
    With ActiveWindow
    .DisplayHeadings = False
    End With
  Next Blatt
  wksActive.Activate
FEHLER:
  On Error GoTo 0
  Application.ScreenUpdating = False

Application.DisplayFullScreen = True


End Sub

 

Hat jemand eine Idee warum diese codes nicht immer einwandfrei funktionieren bzw. die Verlinkung manchmal nicht funktionert?

 

hier noch ein paar allgemeins Daten:

  • Microsoft Windows 10 Enterprise
  • 64-Bit-Prozessor
  • Microsoft 365 Apps for Enterprise (öffnet immer über die App nicht über den Browser) 

Vielen Dank und viele Grüße

 

Hape


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA Code funktioniert nicht immer
20.04.2022 16:11:54 Hape
NotSolved
21.04.2022 13:10:42 Gast51778
NotSolved