Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Verknüpfung zu einer Mappe durch Eingabe der Zelladresse

Gruppe

Extern

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

    

Beiträge aus dem Excel-Forum zu den Themen Link und Extern