Formeln in anderen Dokumenten

Ich möchte folgendes realisieren:
Ich möchte eine Aufstellung von Zahlen machen, die anschließend in eine Grafik übertragen werden.
Die Aufstellung der Zahlen besteht aus drei Spalten:
einer Spalte mit fixen Zahlen, die schon manuell eingegeben wurden
einer Spalte mit Zahlen die monatlich manuell nachgetragen werden
einer Spalte die ständig aktuell sein sollte und sich Zahlen aus anderen Dokumenten zieht.
zB.: in der dritten Spalte steht dann:
=SUM('L:\xxxxxx\xxxx2006\[xxxxmar2006.xls]Sheet1'!L77)
wird allerdings in dem xxxx-dokument etwas geändert, springt komischerweise auch die formel um und ändert sich automatisch.
füge ich zum beispiel in dem bezugsdokument eine zeile oben hinzu, ändert er die formel nicht ab auf
=SUM('L:\xxxxxx\xxxx2006\[xxxxmar2006.xls]Sheet1'!L78)
sondern bleibt gleich und zieht daher komplett falsche zahlen
wie kann ich also eingeben, dass immer dieses eine konkrete feld als quelle angegeben wird, egal ob jetzt zeilen hinzugefügt oder entfernt werden
danke im voraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
sorge dafür, dass auf allen betroffenen PCs in Excel die Sicherheitseinstellungen auf Mittel eingestellt sind (Extras-Sicherheit-Makrosicherheit) und kopiere folgende beiden Makros in das Modul Diese Arbeitsmappe deiner Zieldatei (die mit den Formeln):


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Visible = xlSheetVeryHidden
Next 'wks
ThisWorkbook.Save
End Sub


Private Sub Workbook_Open()
Dim wkb As Workbook
Dim wks As Worksheet
For Each wkb In Application.Workbooks
If wbk.Name = "NameDeinerDatei.xls" Then Exit Sub
Next 'wkb
Workbooks.Open ("PfadUndNameDeinerDatei.xls")
ThisWorkbook.Activate
For Each wks In ThisWorkbook.Worksheets
wks.Visible = xlSheetVisible
Next 'wks
End Sub

Öffne nun die Zieldatei einmal mit der Option Makros aktivieren und schließe sie wieder. Jetzt passiert folgendes. Wenn die Zieldatei mit der Option Makros deaktivieren geöffnet wird, werden keine Makros ausgeführt. Daher wird die Quelldatei nicht geöffnet. Allerdings sind alle Arbeitsblätter ausgeblendet und können auch nicht eingeblendet werden. Nur wenn die Zieldatei mit der Option Makros aktivieren geöffnet wird, werden die Arbeitsblätter eingeblendet. Nun wird aber auch die Quelldatei mit geöffnet, falls sie nicht schon geöffnet ist. Beim schliessen der Datei werden alle Arbeitsblätter wieder ausgeblendet.
Gruß Ingolf

Private Sub Workbook_Open() Dim wkb As Workbook Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets wks.Visible = xlSheetVisible Next 'wks For Each wkb In Application.Workbooks If wbk.Name = "NameDeinerDatei.xls" Then Exit Sub Next 'wkb Workbooks.Open ("PfadUndNameDeinerDatei.xls") ThisWorkbook.Activate End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread