Moin in die Runde. Ich hab mal ne Frage.

Bei mir wird "Prozedur zu groß" angezeigt. 

Ich habe schon ne ganze Menge an Blöcken, die nach dem gleichen Schema abgefahren werden, untereinander im selben Modul stehen.

Bislang hat es immer funktioniert, aber seit heute ist Schicht im Schacht.

Wie kann man den solchen einen Block elegant schlanker machen? 

Vielen Dank

Dirk

Sub kopieren()  
    Select Case UCase(Worksheets("Parameter").Range("D6"))

Case "A"

            Worksheets("Parameterschnittstelle_Inventor").Range("G37").Value = Worksheets("Parametereingabe").Range("H8").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G41").Value = Worksheets("Parameter").Range("H9").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G45").Value = Worksheets("Parameter").Range("H10").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G49").Value = Worksheets("Parameter").Range("H11").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G53").Value = Worksheets("Parameter").Range("H12").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G57").Value = Worksheets("Parameter").Range("H13").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G61").Value = Worksheets("Parameter").Range("H14").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G39").Value = Worksheets("Parameter").Range("O8").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G43").Value = Worksheets("Parameter").Range("O9").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G47").Value = Worksheets("Parameter").Range("O10").Value  
            Worksheets("Parameterschnittstelle_Inventor").Range("G51").Value = Worksheets("Parameter").Range("O11").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G55").Value = Worksheets("Parameter").Range("O12").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G59").Value = Worksheets("Parameter").Range("O13").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G63").Value = Worksheets("Parameter").Range("O14").Value    
            
            Worksheets("Parameterschnittstelle_Inventor").Range("G38").Value = Worksheets("Parameter").Range("G8").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G42").Value = Worksheets("Parameter").Range("G9").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G46").Value = Worksheets("Parameter").Range("G10").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G50").Value = Worksheets("Parameter").Range("G11").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G54").Value = Worksheets("Parameter").Range("G12").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G58").Value = Worksheets("Parameter").Range("G13").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G62").Value = Worksheets("Parameter").Range("G14").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G40").Value = Worksheets("Parameter").Range("N8").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G44").Value = Worksheets("Parameter").Range("N9").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G48").Value = Worksheets("Parameter").Range("N10").Value  
            Worksheets("Parameterschnittstelle_Inventor").Range("G52").Value = Worksheets("Parameter").Range("N11").Value  
            Worksheets("Parameterschnittstelle_Inventor").Range("G56").Value = Worksheets("Parameter").Range("N12").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G60").Value = Worksheets("Parameter").Range("N13").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G64").Value = Worksheets("Parameter").Range("N14").Value    
            
            Worksheets("Parameterschnittstelle_Inventor").Range("G69").Value = Worksheets("Parameter").Range("H17").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G73").Value = Worksheets("Parameter").Range("H18").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G89").Value = Worksheets("Parameter").Range("H19").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G93").Value = Worksheets("Parameter").Range("H20").Value   
            
            Worksheets("Parameterschnittstelle_Inventor").Range("G70").Value = Worksheets("Parameter").Range("G17").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G74").Value = Worksheets("Parameter").Range("G18").Value  
            Worksheets("Parameterschnittstelle_Inventor").Range("G90").Value = Worksheets("Parameter").Range("G19").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G94").Value = Worksheets("Parameter").Range("G20").Value   
            
            Worksheets("Parameterschnittstelle_Inventor").Range("G71").Value = Worksheets("Parameter").Range("O17").Value  
            Worksheets("Parameterschnittstelle_Inventor").Range("G75").Value = Worksheets("Parameter").Range("O18").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G91").Value = Worksheets("Parameter").Range("O19").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G95").Value = Worksheets("Parameter").Range("O20").Value   
            
            Worksheets("Parameterschnittstelle_Inventor").Range("G72").Value = Worksheets("Parameter").Range("N17").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G76").Value = Worksheets("Parameter").Range("N18").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G92").Value = Worksheets("Parameter").Range("N19").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G96").Value = Worksheets("Parameter").Range("N20").Value   
            
            Worksheets("Parameterschnittstelle_Inventor").Range("G233").Value = Worksheets("Parameter").Range("E17").Value    
            Worksheets("Parameterschnittstelle_Inventor").Range("G236").Value = Worksheets("Parameter").Range("E18").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G248").Value = Worksheets("Parameter").Range("E19").Value   
            Worksheets("Parameterschnittstelle_Inventor").Range("G251").Value = Worksheets("Parameter").Range("E20").Value   
            
            Worksheets("Parameterschnittstelle_Inventor").Range("G272").Value = Worksheets("Parameter").Range("C30").Value  

  End Select
End Sub