Wenn Datei XY geöffnet dann...

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von HenryV.

    Wenn Datei XY geöffnet dann...

    Hallo zusammen,

    ich bin neu hier und hoffe auf eure Hilfe.
    Ich habe eine Exceldatei die sich selbständig auf 3 weitere Rechner kopiert. In der Datei sind die Tabellenblätter und das Formelfeld ausgeblendet.

    Ich bräuchte jetzt ein Makro welches den Dateinamen abfragt und dann die Tabellenblätter und Formelfeld einblendet.

    Als Beispiel: Wenn "Datei1" geöffnet dann Tabellenblätter & Formelfeld einschalten, ansonsten ausschalten.
    Hoffe es ist verständlich.
    Geht das?
    Danke schonmal im voraus

    Grüße

    Bitteschön.
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Function IsWorkBookOpen(Name As String) As Boolean
    2. Dim xWb As Workbook
    3. On Error Resume Next
    4. Set xWb = Application.Workbooks.Item(Name)
    5. IsWorkBookOpen = (Not xWb Is Nothing)
    6. End Function
    8. Sub Main()
    9. Dim xRet As Boolean
    10. Dim sDatei As String
    11. sDatei = "Datei1"
    12. xRet = IsWorkBookOpen(sDatei) Or _
    13. IsWorkBookOpen(sDatei & ".xlsx") Or _
    14. IsWorkBookOpen(sDatei & ".xlsm") Or _
    15. IsWorkBookOpen(sDatei & ".xlsb") Or _
    16. IsWorkBookOpen(sDatei & ".xls")
    18. If xRet Then
    19. Application.DisplayFormulaBar = True
    20. ActiveWindow.DisplayWorkbookTabs = True
    21. Else
    22. Application.DisplayFormulaBar = False
    23. ActiveWindow.DisplayWorkbookTabs = False
    24. End If
    25. End Sub

    Ich persönlich würde aber das ein- bzw. ausblenden mit Events von der Ursprungsdatei machen lassen.
    (Diese Makros gehört in DieseArbeitsmappe)
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Private Sub Workbook_Activate()
    2. Application.DisplayFormulaBar = False
    3. ActiveWindow.DisplayWorkbookTabs = False
    4. End Sub
    6. Private Sub Workbook_Deactivate()
    7. Application.DisplayFormulaBar = True
    8. ActiveWindow.DisplayWorkbookTabs = True
    9. End Sub

Facebook
Telefonspende