Hallo zusammen,
an meinem kopieren-einfügen code funktioniert nur die letzte zeile nicht:
=
Set cpy = Worksheets("Sheet3").Range("A1:AI32")
'ERMITTELT DIE ERSTE LEERE ZEILE IN A
'Sheets("sheet1").Activate
'Range("A1").Select
'Do Until ActiveCell.Value = ""
'ActiveCell.Offset(1, 0).Select
'Loop
'cpy.Copy Destination:=Worksheets("Sheet1").ActiveCell <-----?
Wie kann ich das Kopierte in meine ermittelte Zelle einfügen?
Vielen dank für jede Hilfe
gruß Patrick