Formeln in Zellen und ausfüllen
26.02.2013 19:08:59
Thorsten_Z
Dies ist mein Code:
Sub Formeln()
Dim zZeile As Long
zZeile = Worksheets("KinderDB").Range("A65536").End(xlUp).Row
Sheets("KinderDB").Cells(2, 66).FormulaR1C1 = "=IF(RC[-65]"""",MAX(RC[-61],RC[-60]),0)"
Sheets("KinderDB").Cells(2, 66).AutoFill Destination:=Range("BN2:BN" & zZeile)
Sheets("KinderDB").Cells(2, 67).FormulaR1C1 = "=IF(RC[-66]"""",MAX(RC[-60],RC[-59]),0)"
Sheets("KinderDB").Cells(2, 67).AutoFill Destination:=Range("BO2:BO" & zZeile)
Sheets("KinderDB").Cells(2, 365).FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-336],GruppenDB!R2C1: _
R155C3,3,0)),"""",VLOOKUP(RC[-336],GruppenDB!R2C1:R155C3,3,0))"
Sheets("KinderDB").Cells(2, 365).AutoFill Destination:=Range("NK2:NK" & zZeile)
End Sub
Meine Frage ist, ob ich nicht am Ende, wenn alle Formeln in die Zeile Zwei geschrieben sind, alles komplett mit Autofill "Herunterkopieren" kann!? Für die einzelne Spalte, wie oben im Code, geht es... aber es geht zum Beispiel nicht über mehrere Spalten wenn ich schreibe:
Sheets("KinderDB").AutoFill Destination:=Range("BN2:NK" & zZeile)
(Also gehen wird es ja bestimmt... was ich meine ist ICH schaffe es nicht mir das zusammen zu bauen ;-) )
Hat jemand einen Rat für mich?
Vielen Dank schon mal
Besten Gruß
Thorsten