Gruppe
Link
Bereich
Extern
Thema
Verknüpfung zu einer Mappe durch Eingabe der Zelladresse
Problem
Wie kann ich durch Eingabe einer Zelladresse (F16) in ein Zelle eine Verknüpfung zu der in der Kopfzeile der Spalte genannten Arbeitsmappe und in der Zelle darunter genannten Tabele herstellen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim iCol As Integer
Dim sPath As String, sFormula As String
Set wks = Worksheets("Tabelle1")
sPath = "='" & ThisWorkbook.Path & "\"
For iCol = 1 To 3
sFormula = sPath & "[" & wks.Cells(1, iCol).Value & "]"
sFormula = sFormula & wks.Cells(2, iCol).Value & "'!A1"
wks.Cells(3, iCol).Formula = sFormula
sFormula = ""
Next iCol
End Sub