Thema
Verknüpfungen in 2. Blatt transponiert anlegen
Gruppe
Intern
Problem
Wie kann ich in Tabelle2 Verknüpfungen zu einem Zellberich in Tabelle2 in transponierter Form anlegen, wobei der Bereich zum Einfügen bei Zelle D1 beginnen soll?
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