Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Transponieren()
   Dim iCounter As Integer
   For iCounter = 1 To 4
      With Worksheets("Tabelle2")
         .Cells(1, iCounter + 3).Formula = _
            "=Tabelle1!" & Cells(iCounter, 1).Address
      End With
   Next iCounter
End Sub

    

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