ich habe mal von einen fleißigen Helfer diesen Code bekommen
Sub Makro1()
quellSpalte = 25 'Spalte Y
With Sheets("Unterricht Zusammenstellen")
anzd = .Cells(Rows.Count, quellSpalte).End(xlUp).Row
[o4].AutoFill Destination:=.Range("o4:o" & anzd), Type:=xlFillDefault
End With
quellSpalte1 = 25 'Spalte Y
With Sheets("Unterricht Zusammenstellen")
anzd = .Cells(Rows.Count, quellSpalte1).End(xlUp).Row
[p4].AutoFill Destination:=.Range("p4:p" & anzd), Type:=xlFillDefault
End With
End Sub
Nun möchte ich aber kein Autofill sondern so viel mal kopiert wie vorher gezählt.Was mus ich ändern?
Gruß Achim H.