PDA

Vollständige Version anzeigen : Formel kopieren


yo_yo_yo
19.07.2012, 14:08
Salü zusammen

Ich müsste einen VBA-Code haben der folgendes erledigt...
Formeln die in den Zellen S2:AA2 stehen soweit nach unten kopieren bis zur letzten befüllten Zelle in Spalte A.

Vielen vielen Dank für Eure Hilfe...

EarlFred
19.07.2012, 14:23
Hallo Michi,

probier mal:
Option Explicit

Sub test()
Dim lngLast As Long
lngLast = Cells(Rows.Count, 1).End(xlUp).Row
Range("S2:AA2").AutoFill Destination:=Range("S2:AA" & lngLast), Type:=xlFillCopy
End Sub

Grüße
EarlFred

IngGi
19.07.2012, 14:25
Hallo Michi,

so?

<blockquote><div style='background-color: #F2F2FF; border: 1px solid #3300B2; padding: 0px 24px;'><pre style='font-size: 12px; padding: 0px 10px;'>Range<span style='color: #B200CC;'>(</span><span style='color: #CC9900;'>"S2:AA2"</span><span style='color: #B200CC;'>)</span>.AutoFill _<br> Destination:=Range<span style='color: #B200CC;'>(</span><span style='color: #CC9900;'>"S2:AA"</span> & Cells<span style='color: #B200CC;'>(</span>Rows.Count,<span style="color: #FF0000"> 1</span><span style='color: #B200CC;'>)</span>.End<span style='color: #B200CC;'>(</span>xlUp<span style='color: #B200CC;'>)</span>.Row<span style='color: #B200CC;'>)</span><br></pre><hr style='color: #3300B2; background: #3300B2; height: 1px;'><p style='font-size: 8px; font-family: Verdana; text-align: right;'>VBA/HTML - CodeConverter für Excelforen<br>AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi<br>Anbindung an VBE-Kontextmenü geklaut ;-) bei: <a href='http://www.cpearson.com/excel/VbeMenus.aspx'>http://www.cpearson.com/excel/VbeMenus.aspx</a></p></div></blockquote>

Gruß Ingolf

mücke
19.07.2012, 14:26
gelöscht

da war ich wohl etwas zu langsam :D

EarlFred
19.07.2012, 14:29
Hallo Dirk,

na, im Unterschied zu Ingolf und mir hast Du aber eine andere Methode verwendet - und der Code war der kürzeste ;)

Ich war schnell genug, ihn vor dem Edit zu retten - hier isser:

Range("S2:AA" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown :top:

Grüße
EarlFred

mücke
19.07.2012, 14:43
... in der Not :D

Danke EarlFred für die Blumen :)

yo_yo_yo
20.07.2012, 08:27
Hey Jungs

Ihr seid genial...alle drei!!!

Vielen lieben Dank