Anzeige
Archiv - Navigation
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

per Makro Mappe öffnen bzw. schließen

per Makro Mappe öffnen bzw. schließen
Karsten
Hallo,
in Mappe2 benötige ich folgenden Makro-Befehl:
wenn Mappe1 geöffnet ist soll sie geschlossen werden und wenn sie geschlossen ist soll sie geöffnet werden.
Besten Dank
Gruß
Karsten

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Mappe abweschseln öffnen bzw. schließen
16.10.2009 21:49:03
NoNet
Hallo Karsten,
probiere es mal mit folgendem Code :
VBA-Code:
Sub MappeOeffnenUndSchliessen()
    Dim strDateiname As String, wb As Workbook
    strDateiname = "C:\temp\DeineMappe.xls" 'Name bitte anpassen !
    On Error Resume Next
    Set wb = Workbooks(Split(strDateiname, "\")(UBound(Split(strDateiname, "\"))))
    If Not wb Is Nothing Then
        If MsgBox("Soll die folgende Mappe geschlossen werden ?", _
            vbYesNo + vbQuestion, "Mappe ist bereits geöffnet") = vbYes Then
            wb.Close
        End If
    Else
        If Dir(strDateiname) <> "" Then
            If MsgBox("Soll die folgende Mappe geöffnet werden ?", _
                vbYesNo + vbQuestion, "Mappe ist nicht geöffnet") = vbYes Then
                Set wb = Workbooks.Open(strDateiname)
            End If
        Else
            MsgBox "Folgende Datei wurde nicht gefunden :" & vbLf & vbLf & _
                strDateiname, vbOKOnly + vbInformation, "Datei existiert nicht !"
        End If
    End If
End Sub
Den Dateiname bitte zuvor anpassen !
Gruß, NoNet
AW: Mappe abweschseln öffnen bzw. schließen
Karsten

Hallo NoNet,
danke, angepasst für mich funktioniert es.
Gruß
Karsten
Anzeige
AW: Mappe abweschseln öffnen bzw. schließen
17.10.2009 08:26:23
Karsten
Hallo NoNet,
danke, angepasst für mich funktioniert es.
Gruß
Karsten

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige