| 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 |
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen