Kopier Marko
Koenig
ich habe von Rudi letzte Woche diesen Code bekommen, um per Makro Zeilen automatisch nach unten zu kopieren. Diese Makro kopiert mir eine feste Zeile in alle anderen.
Sub FormelRein()
Dim lngZ As Long
Application.ScreenUpdating = False
lngZ = Cells(1, 1).End(xlDown).Row
Range(Cells(5, 2), Cells(lngZ, 74)).Formula = Cells(5, 2).Formula
Application.ScreenUpdating = True
End Sub
Ich hätte gern ein Makro, das mir aus jeder Spalte die Zeile 5 (B5; c5; d5 usw.)nach unten kopiert bis ein besitmmter Wert erreicht ist (Dieser sollte aus Spalte A kommen alle Zeilen die nicht leer sind). Da in den Jeweiligen Feldern unterschiedliche Formeln stehen. Wäre super wenn ich hier nochmal auf euer Können zurück greifen könnte. Vielen Dank
Anzeige