Alle geöffneten verknüpften Mappen schliessen (VBA
10.10.2003 08:59:00
Wilfried
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