Thema Datum  Von Nutzer Rating
Antwort
Rot Spalte auf mehreren Arbeitsblättern in Abhängigkeit der Periode kopieren und einfügen
06.12.2022 15:30:41 Gast1
Solved
06.12.2022 15:44:09 Gast48412
NotSolved
06.12.2022 16:08:22 Gast30532
NotSolved
06.12.2022 16:12:36 Flotter Feger
NotSolved
06.12.2022 16:25:19 Gast5920
NotSolved

Ansicht des Beitrags:
Von:
Gast1
Datum:
06.12.2022 15:30:41
Views:
270
Rating: Antwort:
 Nein
Thema:
Spalte auf mehreren Arbeitsblättern in Abhängigkeit der Periode kopieren und einfügen

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!

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Spalte auf mehreren Arbeitsblättern in Abhängigkeit der Periode kopieren und einfügen
06.12.2022 15:30:41 Gast1
Solved
06.12.2022 15:44:09 Gast48412
NotSolved
06.12.2022 16:08:22 Gast30532
NotSolved
06.12.2022 16:12:36 Flotter Feger
NotSolved
06.12.2022 16:25:19 Gast5920
NotSolved