Loop für einige Sheets
03.02.2021 12:35:29
JoS
ich möchte eine Loop für meine Worksheets machen, aber nur für die Sheets 2-8
Bisher habe ich eine Loop für alle WS die so aussieht:
Dim WS As Worksheet
For Each WS In Worksheets
Dim Anz As Integer ' Anzahl der Reihen die Kopiert werden sollen
Anz = 10
WS.Activate
Dim WsName As String
WsName = ActiveSheet.Name
lEintrUebersicht = WS.Cells(Rows.Count, 2).End(xlUp).Row - 1
If lEintrUebersicht >= 10 Then
Anz = lEintrUebersicht - Anz
Else
Anz = 2
End If
WS.Range("A" & Anz & ":M" & lEintrUebersicht).Copy
With ThisWorkbook
.Sheets(WsName).Activate
.Sheets(WsName).Cells(1, Anz).PasteSpecial
End With
Next WS
was muss ich ändern, dass die loop nur für sheets 1-8 gilt?Vielen Dank im vorraus