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?
Wie wäre es mit einer Verlinkung auf die Datei in Zelle A1??
Dazu Rechtsklick in die Zelle --> Link --> dann die Datei wählen.
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
@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
yepp, Stefan - läuft
danke
eines könnte mich jetzt noch interessieren.
Ich habe 2 dateien wo das Makro rein soll.
Wie würde es als AddIn aussehen?
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.
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
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
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