Hallo,

ich habe ein Excel Workbook mit mehreren Sheets. Davon soll der Prozess in manchen laufen und in manchen nicht. Die benötigten Sheets können evtl. im Laufe der Zeit ihren Namen ändern. In den Sheets selbst sollen in Abhängigkeit der angegebenen Periode die Formeln kopiert und in eine andere Spalte kopiert werden. 

Als Ansatz habe ich folgendes probiert:

Dim ws As Worksheet
 
'Schleife über alle Tabellenblätter
For Each ws In Worksheets
 
    'Bestimmte Tabellenblätter überspringen
    If ws.Name <> "Draft Upload" And ws.Name <> "UserGuide" And ws.Name <> "Grundinformationen" And ws.Name <> "summary CoS" And ws.Name <> "summary Selling" And ws.Name <> "summary HR" Then
    Debug.Print ws.Name
    If Range("E5") = 3 Then
        ws.Range("K6:K121").Copy
        ws.Range("L6:L121").PasteSpecial xlPasteFormulas
        
    If Range("E5") = 4 Then
        ws.Range("L6:L121").Copy
        ws.Range("M6:M121").PasteSpecial xlPasteFormulas
        
     If Range("E5") = 5 Then
        ws.Range("M6:M121").Copy
        ws.Range("R6:R121").PasteSpecial xlPasteFormulas
        
    If Range("E5") = 6 Then
        ws.Range("R6:R121").Copy
        ws.Range("S6:S121").PasteSpecial xlPasteFormulas
        
    If Range("E5") = 7 Then
        ws.Range("S6:S121").Copy
        ws.Range("T6:T121").PasteSpecial xlPasteFormulas
        
    If Range("E5") = 8 Then
        ws.Range("T6:T121").Copy
        ws.Range("Y6:Y21").PasteSpecial xlPasteFormulas
        
    If Range("E5") = 9 Then
        ws.Range("Y6:Y121").Copy
        ws.Range("Z6:Z121").PasteSpecial xlPasteFormulas
        
    If Range("E5") = 10 Then
        ws.Range("Z6:Z121").Copy
        ws.Range("AA6:AA121").PasteSpecial xlPasteFormulas
        
    If Range("E5") = 11 Then
        ws.Range("AA6:AA121").Copy
        ws.Range("AF6:AF121").PasteSpecial xlPasteFormulas
        
    If Range("E5") = 12 Then
        ws.Range("AF6:AF121").Copy
        ws.Range("AG6:AG121").PasteSpecial xlPasteFormulas
        
    If Range("E5") = 13 Then
        ws.Range("AG6:AG121").Copy
        ws.Range("AH6:AH121").PasteSpecial xlPasteFormulas
        
    End If
    Next ws
      
      

mir zeigt es jetzt aber eine Fehlermeldung, dass ich kein Next ohne For angeben darf, obwohl ich das habe...

Kann mir evtl jemand helfen? vielleicht habe ich ein Next vergessen oder muss es an eine andere Stelle schreiben?

Vielleicht gibt es auch noch Möglichkeiten den Code besser zu schreiben? zu den übersprungenen Sheets gehören noch weitere, die ich bisher aber noch nicht eingepflegt habe (da sehr aufwendig) - gibt es hier vllt eine kürzere Version??

Vielen Dank!