Datentyp Zelle, andere Zellen ableiten
29.05.2008 22:35:02
Peter
In einer Tabelle habe ich mir Daten aus geschlossenen Tabellen eingetragen. Nun möchte ich mit einem Doppelklick auf die entsprechende Zelle die Quelle, woher der Wert stammt, öffnen.
Beispiel1:
In D6 steht ein bestimmter Wert. In der Spalte A steht jeweils der Pfad, in Zeile 1 die Tabelle und in Zeile 2 die Zelle, woher dieser Wert stammt.
Die Quelle steht in
A6 (z.B. C:\Test\abc.xls),
D1 (z.B. Tabelle1) und
D2 (z.B. E19)
Beispiel2:
In F13 steht ein bestimmter Wert.
Die Quelle steht in A13, F1 und F2
Wenn ich nun auf D6 doppelklicke, möchte ich, dass die die Datei abc.xls geöffnet wird, Tabelle1 aktiviert und die Zelle E19 selektiert wird. - Wenn die Datei bereits offen ist, soll diese nur aktiviert, die Tabelle1 ausgewählt und die Zelle E19 selektiert werden.
Ich habe versucht, dies mit dem Ereignis BeforeDoubleClick zu lösen. Da bin ich schon daran gescheitert, die richtige Deklaration für die Variable, welcher die Zellenadresse zugewiesen wird, vorzunehmen. Dann weiss ich nicht, wie ich aus dieser Variable die jeweilige Zelle in Spalte A und diejenigen in Zeile 1 und 2 ermittle - vielleicht kann mir jemand auch für die weiteren Schritte helfen?
Vielen Dank, Peter
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim strAktiv As Range strAktiv = Application.Caller(Target.Address(0, 0)) MsgBox strAktiv End Sub
https://www.herber.de/bbs/user/52708.xls