Meine Funktion auf einer simplen Form ist recht einfach
Private Sub CommandButton1_Click()
SurveyTitle = UserForm1.TextBox1.Value
NumberOfQuestions = UserForm1.TextBox2.Value
UserForm1.Hide 'Switch off the userform
Application.ScreenUpdating = False 'Do not update Screen
Create_New_Sheet(SurveyTitle, NumberOfQuestions)
Application.ScreenUpdating = True 'Allow Screen update and show results
End Sub
Das wird dann verarbeitet in "Sub Create_New_Sheet(SurveyTitle, NumberOfQuestions)".
Beim Ausführen (Fehler beim Kompilieren:Syntaxfehler) blebt die gelbe Markierung auf "Private Sub CommandButton1_Click()" stehen und "Create_New_Sheet(SurveyTitle, NumberOfQuestions)" wird rot markiert.
Ich habe keine Idee warum, jeder Input wird gerne genommen ;-)
|