Das Archiv des Excel-Forums
Alle geöffneten verknüpften Mappen schliessen (VBA
- 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
- AW: Jetzt: Fehler beim Kompelieren - von ChrisL am 10.10.2003 14:56:13
- 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:26:52
- Jetzt: Fehler beim Kompelieren - von Wilfried am 10.10.2003 13:36:57
- AW: Alle geöffneten verknüpften Mappen schliessen (VBA - von ChrisL am 10.10.2003 11:39:26
 |
Betrifft: Alle geöffneten verknüpften Mappen schliessen (VBA
von: Wilfried
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
| |
