Das Archiv des Excel-Forums
Alle geöffneten verknüpften Mappen schliessen (VBA
Betrifft: Alle geöffneten verknüpften Mappen schliessen (VBA
von: Wilfried
Geschrieben am: 10.10.2003 08:59:00
Hallo
Ich habe das unten stehende Makro zum Öffnen aller verknüpften Mappen einer Excelmappe.
Wie kann man das Makro ändern um alle diese Mappen wieder zu schließen?
Frage in Kurzform:
Alle geöffneten verknüpften Mappen einer Excelmappe sollen geschlossen werden (VBA)
Sub ÖffnenAllerVerknüpftenArbeitsmappen()
Dim Links As Variant
Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
Workbooks.Open Links(i)
Next i
Else
MsgBox "Diese Arbeitsmappe hat keine Verknüpfungen zu anderen Mappen!"
End If
End Sub
Vielen Dank für Eure Hilfe
Wilfried
Betrifft: AW: Alle geöffneten verknüpften Mappen schliessen (VBA
von: ChrisL
Geschrieben am: 10.10.2003 11:39:26
Hi Wilfried
Sub SchliessenAllerVerknüpftenArbeitsmappen()
Dim Links As Variant
Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
Workbooks.Close Links(i)
Next i
Else
MsgBox "Diese Arbeitsmappe hat keine Verknüpfungen zu anderen Mappen!"
End If
End Sub
Gruss
Chris
Betrifft: Jetzt: Fehler beim Kompelieren
von: Wilfried
Geschrieben am: 10.10.2003 13:36:57
Hallo Chris
Vielen Dank für die schnelle Hilfe.
Ich habe dein Makro ausprobiert.
In der Zeile: "Workbooks.Open Links (i)" erscheint jetzt:
Fehler beim Kompelieren:
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft
Hast Du vielleicht noch eine Idee??
GRuß
Wilfried
Betrifft: AW: Jetzt: Fehler beim Kompelieren
von: ChrisL
Geschrieben am: 10.10.2003 14:26:52
Hi Wilfried
Hab es nicht getestet, aber Workbooks.Open kommt im Code gar nicht mehr vor.
Gruss
Chris
Betrifft: AW: Jetzt: Fehler beim Kompelieren
von: Wilfried
Geschrieben am: 10.10.2003 14:48:32
Hallo Chris
Die Fehlermeldung kommt natürlich bei Workbooks.Close Links(i)
Ich probiere schon die ganze Zeit, könnte es sein das der Weg in der Schleife darüber führt:
Windows("September.xls").Activate
ActiveWindow.Close
Mit einem Dateinamen funktioniert das Makro. ------Aber:
Ich bekomme die Variable für die Dateinamen nicht hin (Links(i))funktioniert nicht !!
Oder bin ich jetzt völlig auf dem Holzweg?
Wilfried
Betrifft: AW: Jetzt: Fehler beim Kompelieren
von: ChrisL
Geschrieben am: 10.10.2003 14:56:13
Versuch mal...
Workbooks(Links(i)).Close
Gruss
Chris
Excel-Beispiele zum Thema " Alle geöffneten verknüpften Mappen schliessen (VB"