Datei öffnen, Name in zelle

[DieterB]

Moinnsen

in einer Datei steht der Name eine Exceltabelle in Spalte "A"
Ich möchte genau die Datei öffnen, wenn ich in die Zelle klicke

Formel oder Makrolösung?

[Florian19]

Wie wäre es mit einer Verlinkung auf die Datei in Zelle A1??
Dazu Rechtsklick in die Zelle --> Link --> dann die Datei wählen.

[Steffl]

Hallo Dieter,

vielleicht so?

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Columns(1), Target) Is Nothing Then
      Workbooks.Open ThisWorkbook.Path & "\" & Target.Cells(1)
   End If
End Sub

[DieterB]

@Florian: nein, wäre zu einfach :100: 

In Spalte "A" steht der Tabellenname.
Wenn ich da reinklicke, soll sich genau die Datei öffnen,
deren Name in der Zelle steht. Sind bisher etwa 1000
und können noch mehr werden

@Stefan: könnte genau das sein was ich suche. Ich teste, danke

[DieterB]

yepp, Stefan - läuft
danke

[DieterB]

eines könnte mich jetzt noch interessieren.
Ich habe 2 dateien wo das Makro rein soll.

Wie würde es als AddIn aussehen?

[Steffl]

Hallo Dieter,

tut mir leid, da muss ich passen. Ich habe in meinen geposteten Code den Pfad mit angegeben. Bei den AddIn dürfte dieser anders heißen und ob es ohne die Pfad-Angabe läuft, weiß ich nicht, glaube es aber nicht das es geht.

[DieterB]

tja, gestern unter E2000 lief es
Jetzt im Büro unter E2013 nicht mehr.

Datei nicht gefunden, kann es sein dass diese verschoben wurde?

Klare Antwort: nein

Und prompt (mal für alle die auch so eine Frage haben) die Lösung:

so sieht es jetzt aus:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Columns(1), Target) Is Nothing Then
      Workbooks.Open ThisWorkbook.Path & "\" & Target.Cells(1) & ".xls"
   End If
End Sub

[DieterB]

Moin

ich bräuchte da noch eine Prüfung.
Makro soll nur ausgeführt werden, wenn die Datei vorhanden ist.
Vielen dank

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Columns(1), Target) Is Nothing Then
      Workbooks.Open ThisWorkbook.Path & "\" & Target.Cells(1) & ".xls"
   End If
End Sub

[Steffl]

Hallo,

ungetestet

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Columns(1), Target) Is Nothing Then
      If Dir(ThisWorkbook.Path & "\" & Target.Cells(1) & ".xls") <> "" Then
         Workbooks.Open ThisWorkbook.Path & "\" & Target.Cells(1) & ".xls"
      End If
   End If
End Sub