Alle geöffneten verknüpften Mappen schliessen (VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:

Alle geöffneten verknüpften Mappen schliessen (VBA von Wilfried vom 10.10.2003 08:59:00
- AW: Alle geöffneten verknüpften Mappen schliessen (VBA - von ChrisL am 10.10.2003 11:39:26
  - Jetzt: Fehler beim Kompelieren - von Wilfried am 10.10.2003 13:36:57
    - AW: Jetzt: Fehler beim Kompelieren - von ChrisL am 10.10.2003 14:26:52
      - AW: Jetzt: Fehler beim Kompelieren - von Wilfried am 10.10.2003 14:48:32
        
        AW: Jetzt: Fehler beim Kompelieren - von ChrisL am 10.10.2003 14:56:13

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