Hallo,

ich programmier gerade eine UserForm bestehend aus verschiedenen Prozeduren. Bei CommandButton_Click() ist er Code besonders groß, dass ich eine Fehlermeldung bekommen um diese aufzuteilen.

Wenn ich das wir folgt mache :

Private Sub CommandButton_Click()

Call Procedure1

Call Procedure2

Call Procedure3

    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet
    
    Dim i As Integer
    Dim hasMeasures As Boolean
    'Dim listData As Variant

    'Check if all the required boxes have values
    If Tech_EN.Value = "" Or Area.Value = "" Or TUW.Value = "" Or SysH.Value = "" Or ConvType.Value = "" Then
        MsgBox "Please fill all the required fields before proceeding."
        
    End If
    
    'Clear the list before adding new items
    Measures_List.Clear

End Sub

Sub Procedure1()

...

End Sub

etc ...

Aber dann funktioniert meine UserForm nicht wie vorhin. Soll ich all andere deklarierte Funktionen nochmmal definieren ? Ich brauche ihre Unterstützung.
Würde gene den Code privat schicken für einen detaillierten Einblick

Ich bedanke mich im Voraus