kann mir vieleicht jemand weiterhelfen?
suche schon siet tagen nach einem code,
mit dem die zellen p5:q5 kopiert werden,
und weiters in die erste freie zelle der Spalten p:q eingefügt werden.
danke im vorraus
franz
Sub kopiere()
Dim lngEndeP As Long, lngEndeQ As Long
lngEndeP = Cells(Rows.Count, "P").End(xlUp).Row
lngEndeQ = Cells(Rows.Count, "Q").End(xlUp).Row
Range("P5:Q5").Copy Destination:=Range("P" & Application.Max(lngEndeP, lngEndeQ) + 1)
End Sub
Gruß Worti