Zellen automatisch gleichsetzen
23.08.2007 18:10:00
Felix
Ich möchte mir einige Handarbeit sparen und Folgendes mittels eines Makros lösen:
In Zelle T72 soll "=$E$1296" stehen, in T73 soll "=$E$1315" stehen, in T74 soll "=$E$1334" usw.
Das ganze bitte ausfüllen bis in Zelle T300. In Spalte T geht es immer eine Zeile tiefer (+1), in Spalte E immer 19 Zeilen tiefer (+19).
Also so etwas wie (in Worten eines VBA-Anfängers):
Dim VarI As Integer
Dim VarK As Integer
VarK = 1296
For VarI = 72 To 300 Step 1
(und dann in etwa
Zelle (Spalte:T Zeile:VarI+1) soll beinhalten "=Zelle(Spalte:E, Zeile: VarK+19)", wobei bitte auch das $ wie in obigen Beispielen stehen soll.)
VarI0VarI+1
VarK0VarK+19
next
Oder so etwas in der Art (bin VBA-Neuling, sorry).
Habt ihr mein Anliegen verstanden? Sonst bitte Rückfragen, damit ich ggf. weiteres erklären kann.
Vielen Dank für alle Anregungen im Voraus!!
Viele Grüße
Felix