Zusammengesetzte Bezeichnung beim Index-Befehl

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also, ich versuche noch einmal, das Problem umfassend zu erklären:
Ausgangssituation ist wie folgt - ich habe ein Tabellenblatt, in das ich mir per Index-Befehl mit Vergleich aus einer anderen Datei die Zellenwerte für eine Matrix der Größe 100x50 besorge. Hierbei darf ich den Speicherort der anderen Datei nicht ändern. Mein Befehl für diese Aktion sieht also beispielsweise so aus:
=INDEX('G:\03_Pfadangabe1\Unterverzeichnis1\Unterverzeichnis2\Unterverzeichnis3\[Zieldatei.xls]Summary'!$E$332:$BK$360;VERGLEICH($B19;'G:\03_Pfadangabe1\Unterverzeichnis1\Unterverzeichnis2\Unterverzeichnis3\[Zieldatei.xls]Summary'!$C$332:$C$360;FALSCH);VERGLEICH(H$2;'G:\03_Pfadangabe1\Unterverzeichnis1\Unterverzeichnis2\Unterverzeichnis3\[Zieldatei.xls]Summary'!$E$3:$BK$3;FALSCH))
Mit ein paar WENN() abfragen komme ich so sehr schnell auf 1024 Zeichen. Ich suche jetzt nach einer Möglichkeit, die lange Pfadangabe in der Formel zu vermeiden, so dass ich die 1024 Zeichen nicht erreiche. Dies geht, wie du schon sagtest, durch das gleichzeitige Offenhalten der Zieldatei bei der Eingabe der Formel, aber halt auch nur für diese Zeit. Wenn man später einmal die Verknüpfung ändern möchte, dann schlackert Excel mit den Ohren.
Hoffe, dass du mit der Beschreibung etwas anfangen kannst.
Danke im Voraus.
Sascha.

Hallo Sascha,
probier doch mal folgendes:
Makro, dass automatisch alle verknüpften Dateien öffnet ins Codefenster "dieseArbeitsmappe" (deiner Datei mit der INDIREKT-FORMEL) einfügen :


Private Sub Workbook_Open()
Dim arLinks As Variant
Dim intIndex As Integer
Application.ScreenUpdating = False
arLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(arLinks) Then
For intIndex = LBound(arLinks) To UBound(arLinks)
ActiveWorkbook.OpenLinks arLinks(intIndex)
Next intIndex
Else
MsgBox "The active workbook contains no external links."
End If
Application.ScreenUpdating = True
End Sub

Desweiteren hier ein Makro, was vor dem Schließen der aktiven Datei alle anderen Dateien ohne Speichern schließt (mit Ausnahme der Arbeitsmappe, aus der das Makro ausgeführt wird) - muss ins gleiche Codefenster :


Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
w.Close savechanges:=False
End If
Next w
End Sub

Dann kannst ohne Probleme deine INDIREKT-Formel behalten und deine Datei bleibt klein,
Die Makros wirst du doch kopiert kriegen.
Gruß,
Beate

Beliebteste Forumthreads (12 Monate)

Zusammengesetzte Bezeichnung beim Index-Befehl

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread