ich habe eine Tabelle mit drei Spalten (Q, R, S) beginnend mit Q2, R2 und S2. Die erste Zeile hat Überschriften.
Die Spalten sind jeweils Q2:Q201, R2:R201 und S2:S201.
Mittels nachstehendem Code füge ich ohne Schleife die Werte in die Tabelle ein und zwar der Reihe nach von Spalte K bis WF.
~f
.Range("K2").FormulaLocal = "='" & ws3 & "'!Q2" 'funktioniert
.Range("L2").FormulaLocal = "='" & ws3 & "'!R2" 'funktioniert
.Range("M2").FormulaLocal = "='" & ws3 & "'!S2" 'funktioniert
.Range("N2").FormulaLocal = "='" & ws3 & "'!Q3" 'funktioniert
.Range("O2").FormulaLocal = "='" & ws3 & "'!R3" 'funktioniert
.Range("P2").FormulaLocal = "='" & ws3 & "'!S3" 'funktioniert
~f
Das ganze muss m. E. bei .Range(cells(2,i).FormulaLocal = "='" & ws3 & "'!S3" ? umgebaut werden. Keine Ahnung wie genau dies erfolgen soll.
Könnt ihr mir bitte hierbei helfen?
Besten Dank
Gruss
Peter