Hallo zusammen,
Ich habe folgenden Code geschrieben:
Sub CopyPasteDelete()
'L1
Set wbZiel = ThisWorkbook.Worksheets("L1")
Set wbQuelle = ActiveWorkbook.Worksheets("L1")
With wbQuelle
.Range("B3:B9,C3:C9,D3:D9,F3:F9,L3:L9,N3:N9,O3:O9,P3:P9,Q3:Q9,S3:S9,T3:T9,U3:U9,V3:V9,Y3:Y9,AE3: _
_
_
AE9"...