Alle Formeln in Range c5:P5 bis Ende kopieren
13.10.2003 16:31:22
hp
folgendes Problem: Ich möchte in Range(c6:p?)die Formeln aus c5:P5 per VBA ausfüllen.
Für eine Spalte habe ich den Autofill-Befehl. Um in dem ohnehin riesigen Makro die Übersicht zu behalten, möchte ich nicht für jede Spalte den Code erneut hinterlegen.
Ab spalte P:P sind auch noch Daten gepflegt, so daß xlEnd ausfällt.
Kann mir jemand helfen? Ich bin ziemlich under pressure....
habe schon einmal dieses Thema gepostet. Leider läuft folgende Antwort auf den Debugger:
Dim y As Integer
Dim intRow As Integer
intRow = Cells(Rows.Count, 1).End(xlUp).Row
y = intRow
Range("C5:p5").AutoFill Destination:=Range("C6:P" & y), Type:=xlFillDefault
Was mach ich falsch? Oder besser noch: Wie mach ichs richtig?
Danke und Gruß/hp
Anzeige