Clever-Excel-Forum

Hallo zusammen

ich suche einen (Teil)Code, der folgendes Problem löst:

"Nimm die Formel aus Z2 und kopiere sie bis zur letzten befüllten Zeile aus Spalte Y runter".

Den nun folgenden Code habe ich aufgenommen. Ich hatte versucht dieses Problem dadurch zu lösen, dass ich per Tastenkombination in die letzte befüllte Zeile in Y gesprungen bin und bis in diese Zeile die Formel runterkopiert habe. Jedoch greift diese Idee nicht, wenn sie die Anzahl der Zeilen ändern (anstatt 2968 werden es monatlich nämlich immer mehr):

Sub Schritt_2_aus_Hilfstab()
'
' Schritt_2_aus_Hilfstab_ Makro
'

'
Sheets("Leistungszeitraum").Select
Range("Z1").Select
ActiveCell.FormulaR1C1 = "Check, ob neue Buchung oder nicht"
Columns("Z:Z").EntireColumn.AutoFit
Columns("Z:Z").Select
Selection.NumberFormat = "General"
Range("Z2").Select
Selection.FormulaArray = _
"=Iferror(Index('DB bis einschl. August - HC'!$G:$G,Match(1,(Leistungszeitraum!$G2='DB bis einschl. August - HC'!$G:$G)*(Leistungszeitraum!$B2='DB bis einschl. August - HC'!$B:$B)*(Leistungszeitraum!$Y2='DB bis einschl. August - HC'!$Y:$Y),0)),""Neu"")"
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Selection.Copy
Range("Y2").Select
Selection.End(xlDown).Select
Range("Z2968").Select
Range(Selection, Selection.End(xlUp)).Select
Range("Z3:Z2968").Select
Range("Z2968").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Calculate
End Sub

In diesem Forum habe ich dieselbe Frage gestellt:
VBA - VBA Makro - Formel bis zur letzten Zeile der Nebenspalte kopieren - MS-Office-Forum

Vielen Dank!

Hola,
https://www.clever-excel-forum.de/misc.php?action=help&hid=10
bitte lesen und umsetzen.
Und zu deiner vorherigen Frage wäre es nett auf Lösungen zu antworten.

Gruß,
steve1da

Hi Steve, 

ich vermute, du hast den falschen Link eingefügt. Ich habe dieselbe Frage nirgendwo anders in diesem Forum gestellt. 

Sorry bzgl. meiner vorigen Frage. Das habe ich natürlich nachgeholt!

Zitat:Ich habe dieselbe Frage nirgendwo anders in diesem Forum gestellt. 

Um dieses Forum geht es auch nicht, sondern ums MS-Office-Forum

Habe das Problem lösen können. Folgender Teilcode:

Range("Z2:Z" & Cells(Rows.Count, 1).End(xlUp).Row).filldown