Gruppe
Link
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?
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