Zusammenfassen von Code mit For - Schleifen
23.08.2005 10:39:38
Code
ich hab folgendes Problem:
Untenstehendes wurde mit dem Recorder aufgezeichnet: (vereinfacht hab ich schon)
Sheets("1. Qrt").Select
Range("C6").Select
ActiveCell.Formula = "=Jan!G4"
Range("D6").Select
ActiveCell.Formula = "=Jan!G5"
Range("E6").Select
ActiveCell.Formula = "=Jan!G6"
Range("F6").Select
ActiveCell.Formula = "=Jan!G7"
Range("G6").Select
ActiveCell.Formula = "=Jan!G8"
Range("H6").Select
ActiveCell.Formula = "=Jan!G9"
Range("I6").Select
ActiveCell.Formula = "=Jan!G10"
Range("J6").Select
ActiveCell.Formula = "=Jan!G11"
Range("K6").Select
ActiveCell.Formula = "=Jan!G12"
Range("L6").Select
ActiveCell.Formula = "=Jan!G13"
Range("M6").Select
ActiveCell.Formula = "=Jan!G14"
Range("N6").Select
ActiveCell.Formula = "=Jan!G15"
Range("O6").Select
ActiveCell.Formula = "=Jan!G16"
Range("P6").Select
ActiveCell.Formula = "=Jan!G17"
Range("Q6").Select
ActiveCell.Formula = "=Jan!G18"
Range("R6").Select
ActiveCell.Formula = "=Jan!G19"
Range("S6").Select
ActiveCell.Formula = "=Jan!G20"
Range("T6").Select
ActiveCell.Formula = "=Jan!G21"
Range("U6").Select
ActiveCell.Formula = "=Jan!G22"
Range("V6").Select
ActiveCell.Formula = "=Jan!G23"
Range("W6").Select
ActiveCell.Formula = "=Jan!G24"
Range("X6").Select
ActiveCell.Formula = "=Jan!G25"
Range("Y6").Select
ActiveCell.Formula = "=Jan!G26"
Range("Z6").Select
ActiveCell.Formula = "=Jan!G27"
Range("AA6").Select
ActiveCell.Formula = "=Jan!G28"
Range("AB6").Select
ActiveCell.Formula = "=Jan!G29"
Range("AC6").Select
ActiveCell.Formula = "=Jan!G30"
Range("AD6").Select
ActiveCell.Formula = "=Jan!G31"
Range("AE6").Select
ActiveCell.Formula = "=Jan!G32"
Range("AF6").Select
ActiveCell.Formula = "=Jan!G33"
Range("AG6").Select
ActiveCell.Formula = "=Jan!G34"
Range("AG7").Select
ActiveCell.Formula = "=Jan!G35"
Da es sich aber insgesamt um 12 Monate und 4 Quartalsübersichten handelt wird es erstens aufwendig zum runterschreiben und auch nicht gerade zeitfreundlich beim durchlaufen.
Deswegen würde ich es gern auf "dynamisch" umstellen.
Habe es schon mit einer kleinen For Schleife versucht, aber bekomm immer einen Laufzeitfehler... ( nehm Range.. muss ich da Cell nehmen?)
Wer kann mir da helfen? Ich komm damit leider grad nicht zurande :-(
Bin für jede Hilfe dankbar
Grüße
Claudia