Formel automatisch und dynamisch kopieren
18.07.2017 14:27:30
Stephanie
mein Name ist Stephanie und ich bin ganz neu hier, denn ich bin heute an meine Grenzen in Excel gestoßen.
Meine Excelkenntnisse würde ich wie folgt zusammen fassen:
Formeln und Funktionen, Tabellen und Grafiken bekomme ich gut hin und bin darin auch gut geübt. VBA-Programmierung kann ich leider (noch) überhaupt nicht. Im begrenzten Rahmen schaffe ich es aber Makros aufzuzeichnen. Das mache ich zum Beispiel um Tabellen zu sortieren und zu filtern, wenn sich gewisse Arbeitsschritte immer wieder 1:1 wiederholen.
Ich habe schon mehrere Stunden auf diversen Seiten im Internet nach Lösungen für mein Problem gesucht und bin dann auf dieser Seite hier auf nachfolgende Lösungen gestoßen, die meinem Problem sehr nahe kommt.
https://www.herber.de/forum/archiv/120to124/121135_Formel_dynamisch_kopieren.html#121135
Ich habe mich zwischenzeitlich sogar riesig gefreut, dass ich es geschafft habe den Code auf mein Problem anzupassen. Alledings hielt die Freude nicht lange an, denn dieses Makro kopiert bei mir nicht die Formeln aus der oberen Zeile in Abhängigkeit der Anzahl Zeilen in Spalte A dynamisch nach unten, sondern nur das Ergebnis :(
Ein stark vereinfachtes Beispiel meines Problems habe ich unter folgenden File hochgeladen:
https://www.herber.de/bbs/user/114936.xlsm
Und hier der angepaste Code, der folgendes machen soll:
Sind in der Spalte A in den Zeilen 3 bis XXX Werte vorhanden, die aus einer anderen Detei eingefügt werden, dann sollen die beiden Formeln aus der Zelle J3 und K3 bis zum Eintrag XXX in die darunter liegenden Zellen dieser beiden Spalten kopiert werden .
Sub FormelKopieren()
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
Range("J3:K3").AutoFill Destination:=Range("J3:K" & laR), _
Type:=xlFillDefault
Range("J3:K3" & laR).Copy
Range("J4:K" & laR).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Ich sag schonmal vielen lieben Dank im Voraus für die Hilfe
Stephanie