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").Copy
wbZiel.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
.Range("B13:B19,C13:C19,D13:D19,F13:F19,K13:K19,L13:L19,O13:O19,P13:P19,Q13:Q19,R13:R19,T13:T19, _
_
_
U13:U19,V13:V19,Y13:Y19,AE13:AE19").Copy
wbZiel.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End With
'L2
Set wbZiel = ThisWorkbook.Worksheets("L2")
Set wbQuelle = ActiveWorkbook.Worksheets("L2")
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").Copy
wbZiel.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
.Range("B13:B19,C13:C19,D13:D19,F13:F19,K13:K19,L13:L19,O13:O19,P13:P19,Q13:Q19,R13:R19,T13:T19, _
_
_
U13:U19,V13:V19,Y13:Y19,AE13:AE19").Copy
wbZiel.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End With
'L7
Set wbZiel = ThisWorkbook.Worksheets("L7")
Set wbQuelle = ActiveWorkbook.Worksheets("L7")
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").Copy
wbZiel.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
.Range("B13:B19,C13:C19,D13:D19,F13:F19,K13:K19,L13:L19,O13:O19,P13:P19,Q13:Q19,R13:R19,T13:T19, _
_
_
U13:U19,V13:V19,Y13:Y19,AE13:AE19").Copy
wbZiel.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End With
Set wbZiel = Nothing
Set wbQuelle = Nothing
Application.DisplayAlerts = False
ActiveWorkbook.Close
For Each ws In ActiveWorkbook.Worksheets
If ws.Name "Gesamtauswertung" Then
ws.Activate
Call Leere_zeilen_loeschen
End If
Next
Worksheets("L1").Activate
End Sub
Wie ihr seht, habe ich jeweils für L1, L2 und L7 einen CopyPaste-Block geschrieben. Im Ziel- sowie Quell-Workbook heißen die Sheets gleich.
Gibt es eine Möglichkeit, dies in eine Schleife zu packen, damit im Code keine drei CopyPaste-Blöcke stehen?
Funktionieren tuts einwandfrei, nur siehts in meinen Augen nicht schön aus.
Vielen Dank!!
Liebe Grüße,
Matthias K.