Guten Tag,

ich habe ein Modul und dessen Inhalt hat die 64K-Grenze anscheinend überschritten. Ich habe schon zusammengefasst und gekürzt, aber der letzte in Absatz in Case 7, ca. 10 Zeilen, wird nicht mehr in der Ausführung übernommen und führt zum besagten Fehler.

Gibt es eine Möglichkeit den Sub in sich aufzuteilen o. ä.? Der Sub hängt an einem Command-Button.

Vielen Dank

Iris

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

           viele Codezeilen

    Case "2"

           viele Codezeilen

    Case "3"

           viele Codezeilen

    Case "4"

           viele Codezeilen

    Case "5"

           viele Codezeilen

    Case "6"

           viele Codezeilen

    Case "7"

           viele Codezeilen

   End Select
End Sub