|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.08.2008 10:05:30 |
DerAnfänger |
|
|
|
05.08.2008 12:22:42 |
Holger |
|
|
|
05.08.2008 12:43:02 |
DerAnfänger - Phili |
|
|
|
06.08.2008 11:51:04 |
Holger |
|
|
|
06.08.2008 12:05:16 |
DerAnfänger - Phili |
|
|
 Aw:Aw:Aw:Aw:Aw:Kopieren einer Funktion bis in die |
06.08.2008 19:55:07 |
Holger |
|
|
|
07.08.2008 08:21:53 |
Anfänger- Philippe |
|
|
Von:
Holger |
Datum:
06.08.2008 19:55:07 |
Views:
1218 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Kopieren einer Funktion bis in die |
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 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 |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.08.2008 10:05:30 |
DerAnfänger |
|
|
|
05.08.2008 12:22:42 |
Holger |
|
|
|
05.08.2008 12:43:02 |
DerAnfänger - Phili |
|
|
|
06.08.2008 11:51:04 |
Holger |
|
|
|
06.08.2008 12:05:16 |
DerAnfänger - Phili |
|
|
Aw:Aw:Aw:Aw:Aw:Kopieren einer Funktion bis in die |
06.08.2008 19:55:07 |
Holger |
|
|
|
07.08.2008 08:21:53 |
Anfänger- Philippe |
|
|