Hallo Zusammen,
ich habe mir eine relativ große UserForm gebaut, die am Ende die Daten aus den Textboxen und Comboboxen in ein Tabellenblatt übertragen soll. Insgesamt werden mindesten 20 Zellen versorgt. Ist es eine logische Folge, dass dieses entsprechend "lange" dauert - ich habe die automatische Berechnung während des Vorgangs bereits deaktiviert - oder bin ich mit der Programmierung einfach zu schlecht aufgestellt.
Hat jemand eine Idee?
Auszugsweise hier:
Worksheets("Pipeline").Range("K" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.ComboBox1.Value
Worksheets("Pipeline").Range("M" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.TextBox3.Value
Worksheets("Pipeline").Range("O" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.TextBox2.Value
Worksheets("Pipeline").Range("R" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.ComboBox2.Value
Worksheets("Pipeline").Range("T" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.ComboBox3.Value
Worksheets("Pipeline").Range("V" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.ComboBox4.Value
Worksheets("Pipeline").Range("X" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.TextBox4.Value
Worksheets("Pipeline").Range("Z" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.ComboBox5.Value
Worksheets("Pipeline").Range("AB" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.ComboBox6.Value
If UserForm5.TextBox5.Locked = True Then
Worksheets("Pipeline").Range("AD" & Worksheets("Navigation Pipeline").Range("C4").Value) = ""
End If
If UserForm5.TextBox5.Locked = False Then
Worksheets("Pipeline").Range("AD" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.TextBox5.Value
End If
If UserForm5.TextBox6.Locked = True Then
Worksheets("Pipeline").Range("AF" & Worksheets("Navigation Pipeline").Range("C4").Value) = ""
End If
If UserForm5.TextBox6.Locked = False Then
Worksheets("Pipeline").Range("AF" & Worksheets("Navigation Pipeline").Range("C4").Value) = UserForm5.TextBox6.Value
End If
Vielen Dank und beste Grüße
Christian