Holger schrieb am 06.08.2008 19:55:07:
Hallo Anfänger- Philippe,
ich hätte das Makro doch nicht einfach herunter schreiben sollen, sondern mehr Gedanken damit verschwenden sollen. Richtig muss es natürlich heißen:
Sub y6_ad6_kopieren()
a = CStr(Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row)
Range("y6:ad6").Copy
Range("y7:ad" + a).PasteSpecial
Application.CutCopyMode = True
End Sub
Gruß
Holger
DerAnfänger - Philippe schrieb am 06.08.2008 12:05:16:
Holger,
vielen Dank erst mal für die Mühen. Ich habe das Makro kopiert und angewendet. Leider wir hierbei die Formel nur in die jeweils letzte Zeile kopiert und nicht bis zur letzten Zeile. Lässt sich das ändern?
Vielen Dank!
Holger schrieb am 06.08.2008 11:51:04:
Hallo DerAnfänger - Philippe,
Sub y6_ad6_kopieren()
a = CStr(Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row)
Range("y6:ad6").Copy
Range("y" + a + ":ad" + a).PasteSpecial
Application.CutCopyMode = True
End Sub
Gruß
Holger
DerAnfänger - Philippe schrieb am 05.08.2008 12:43:02:
Hallo Holger,
Die Zellen Y6-AD6 enthalten die jeweiligen Formeln, die pro Spalte bis jeweils Yn - ADn kopiert werden sollen. Zweite Frage wird mit Ja beantwortet, alle Spalten werden jeweils die gleiche Zeilenanzahl haben.
SG
Holger schrieb am 05.08.2008 12:22:42:
Hallo DerAnfänger,
in welchen Zellen stehen die Formeln, die du nach Y6 bis AD... kopieren möchtest? Gibt die letzte in Spalte A benutzte Zelle das Ende des Kopiervorganges an?
Gruß
Holger
DerAnfänger schrieb am 05.08.2008 10:05:30:
Hallo Holger,
recht herzlichen Dank für die Hilfe. Das Makro funktioniert! Wieder was dazu gelernt.
Gruß,
Philippe
Hallo zusammen,
als absoluter Anfänger im Reich der Makros und VBA stehe ich vor einigen Herausforderungen. Ich habe eine Datenbank, die mit 6 Spalten endet, die jeweils mit Hilfe von Funktionen Daten der jeweiligen Zeile errechnet (unter anderem auch mit Hilfe von Verweisen). Da es sich um über 4000 Zeilen handelt, möchte ich nicht bei jeder Änderung immer die Zeilen per scrollen nach unten kopieren, die Zeilenanzahl kann jedoch variieren. Daher hilft mir das aufgezeichnete Makro nicht ganz:
Sub FormelnKopieren()
'
' FormelnKopieren Makro
' Selbstberechnende Formeln ausführen
'
'
Range("Y6:AD6").Select
Selection.AutoFill Destination:=Range("Y6:AD5814"), Type:=xlFillDefault
Range("Y6:AD5814").Select
Range("Y5817").Select
End Sub
Kann mir jemand sagen, wie ich hier das "bis jeweils letzte Zeile" einfüge?!
Vielen Dank!
PL |