Hallo (:
Ich programmiere gerade eine Userform in VBA und bin leider auf ein Problem gestoßen und zwar, dass die Prozedur zu groß ist. Nun muss ich diese in kleinere Subprozeduren aufteilen aber genau das fällt mir schwiering und dafür bräuchte ich Unterstützung.
Der Code besteht grundsätzlich aus vielen SubProzeduren. Die problematische Prozedur ist CommandButton_Click(). Wenn ich versuche diese aufzuteilen, funktioniert mein Userform nicht mehr wie vorhin. Woran kann das Problem liegen ? Es schient als ob innerhlalb dieser Prozedur, die anderen definierten Commands nichts mehr erkannt werden.
Beispiel des Codes :
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
Sub Procedure2()
...
End Sub
Sub Procedure3()
...
End Sub
Ich bedanke mich sehr im Voraus