hier eine VBA Version mit Function...
19.12.2009 10:43:51
Tino
Hallo,
hier mal was mit VBA.
In eine Modul kommt dieser Code
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long) As Long
Public varErgebnis As Variant, BerechneZelle As Range, strSubZiel$
Public hTimer As Long
Function IndirekterVerweis(strZiel$, rngAktBezug As Range)
If IsEmpty(varErgebnis) Then
Set BerechneZelle = rngAktBezug
strSubZiel = strZiel
hTimer = SetTimer(0, 0, 10, AddressOf LeseWert)
Exit Function
End If
IndirekterVerweis = varErgebnis
End Function
Sub LeseWert()
KillTimer 0, hTimer
varErgebnis = ExecuteExcel4Macro(strSubZiel)
BerechneZelle.FormulaLocal = BerechneZelle.FormulaLocal
Set BerechneZelle = Nothing
varErgebnis = Empty
strSubZiel = ""
End Sub
In eine Zelle schreibst Du diese Formel.
| Formeln der Tabelle |
| Zelle | Formel | | A1 | =IndirekterVerweis("'E:\1 Forum\[TestMehr.xls]Tabelle1'!R3C2";A1) |
|
Erster Parameter ist die Indirekte Adresse zu der Datei (beachte R1C1 Schreibweise)
der zweite Wert ist die Zelle in der sich die Formel befindet.
Bei VBA Gut solltest Du aber schnell den Durchblick haben.
Gruß Tino