Textbox wird erst nach Berechnung angezeigt...
20.11.2017 09:33:10
Christian
ich schon wieder - ach mann...
Ich habe in einer UserForm7 einen Commandbutton3, der, während die Inhalte aus den Comboboxen in das Tabellenblatt "Dropdown Analyse" übertragen werden, die UserForm8 anzeigen soll. Das passiert auch, nur zeigt er - warum auch immer und das ist meine Frage - die Textbox1 erst nach der Übertragung der Inhalte an. Bis dahin bleibt die UserForm8 leer. Habt Ihr eine Idee?
Private Sub CommandButton3_Click()
UserForm8.TextBox1 = "Einen Augenblick bitte..."
UserForm8.Show vbModeless
Worksheets("Dropdowns Analyse").Range("i2") = UserForm7.ComboBox1.Value
Worksheets("Dropdowns Analyse").Range("n2") = UserForm7.ComboBox2.Value
Worksheets("Dropdowns Analyse").Range("T2") = UserForm7.ComboBox3.Value
Worksheets("Dropdowns Analyse").Range("Y2") = UserForm7.ComboBox4.Value
If UserForm7.ComboBox1 "" And UserForm7.ComboBox2 "" And UserForm7.ComboBox3 "" And _
UserForm7.ComboBox4 "" Then
If UserForm7.ComboBox1 = "" Or UserForm7.ComboBox2 = "" Or UserForm7.ComboBox3 = "" Or _
UserForm7.ComboBox4 = "" Then
Exit Sub
End If
UserForm7.CommandButton1.Enabled = True
End If
End Sub