Makro - letzte ausgefüllte Zeile
31.01.2017 08:22:38
Werki
ich habe wieder ein Problem und die bisherigen Themen dazu bringen mich leider nicht weiter da ich noch ein blutiger Anfänger bin.
Problem: In der Spalte AE und AF habe ich Werte, die immer wieder ergänzt werden, d.h. es kommen neue Werte dazu. In AG und AH habe ich zwei Formeln hinterlegt, diese möchte ich nun mit einem Makro versehen, damit die Formeln immer bis zum Ende der letzten ausgefüllten Zeile von AE (oder AF) herunterkopiert werden. In Zeile 6 ist der erste ausgefüllte Datensatz.
Wieso nicht manuell kopieren? Die Datei wird an sich recht groß und umfassend, weshalb ich gerne den manuellen Aufwand minimieren würde.
Bisheriges Makro:
Sub Makro2()
' Makro2 Makro
' Tastenkombination: Strg+Umschalt+M
Range("AG6:AH6").Select
Range("AH6").Activate
Selection.Copy
Range("AF6").Select
Selection.End(xlDown).Select
Range("AG35:AH35").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Im Internet habe ich diesen Befehl gefunden, jedoch weiß ich nicht wie ich ihn korrekt einbinde.
lz = Cells(Rows.Count, 7).End(xlUp).Rows.Row
Die 7 müsste ich mit einer 28 austauschen, oder? Dies wäre zumindest die Zahl für die Spalte AE.
Vielen Dank im Voraus :)
Anzeige