viele Textboxen in Tabelle schreiben
05.06.2014 16:29:59
Christian
mit folgendem Code übertrage ich den Ihnhalt mehrerer Textboxen un Labels in ein Tabellenblatt.
Das läuft auch, aber dauert halt, weil es ja einige sind.
Kann man dass noch schneller machen?
In der Recherche habe ich einiges gelesen, dass man die Werte erst an ein Array übergeben kann und dann schneller eintragen kann, nur fehlt mir hier der Ansatz.
Wie könnte man das Eintragen beschleunigen?
Ich benötige keinen ferigen Code, sondern nur mal einen Anstupser in die richtige Richtung (der sollte aber auch nicht zu knapp ausfallen;-)
Für Anregungen sage ich schon mal Danke!
Private Sub CommandButton9_Click()
'# userform komplett schließen #
Dim znr As Long
Dim suchnr As String
Dim SpNr As Range
Set SpNr = Sheets("Kalkulation").Range("L1:L25000")
suchnr = Me.ListBox1.List(0, 1)
znr = Application.Match(suchnr, SpNr, 0)
wksKalk.Cells(znr, 35) = Me.TextBox58 * 1
wksKalk.Cells(znr, 36) = Me.TextBox25 * 1
wksKalk.Cells(znr, 37) = Me.TextBox24 * 1
wksKalk.Cells(znr, 39) = Me.TextBox93 * 1
wksKalk.Cells(znr + 1, 37) = Me.TextBox59 * 1
wksKalk.Cells(znr + 1, 39) = Me.TextBox94 * 1
wksKalk.Cells(znr + 1, 40) = Me.TextBox48 * 1
wksKalk.Cells(znr + 2, 25) = Me.TextBox76 * 1
wksKalk.Cells(znr + 2, 26) = Me.TextBox64 * 1
wksKalk.Cells(znr + 3, 25) = Me.TextBox77 * 1
wksKalk.Cells(znr + 3, 26) = Me.TextBox65 * 1
wksKalk.Cells(znr + 3, 37) = Me.TextBox40 * 1
wksKalk.Cells(znr + 3, 38) = Me.TextBox44 * 1
wksKalk.Cells(znr + 3, 39) = Me.TextBox51 * 1
wksKalk.Cells(znr + 3, 40) = Me.Label36
wksKalk.Cells(znr + 4, 25) = Me.TextBox78 * 1
wksKalk.Cells(znr + 4, 26) = Me.TextBox66 * 1
wksKalk.Cells(znr + 4, 37) = Me.TextBox41 * 1
wksKalk.Cells(znr + 4, 38) = Me.TextBox45 * 1
wksKalk.Cells(znr + 5, 25) = Me.TextBox79 * 1
wksKalk.Cells(znr + 5, 26) = Me.TextBox67 * 1
wksKalk.Cells(znr + 5, 37) = Me.TextBox42 * 1
wksKalk.Cells(znr + 5, 38) = Me.TextBox46 * 1
wksKalk.Cells(znr + 5, 39) = Me.TextBox52 * 1
wksKalk.Cells(znr + 5, 40) = Me.Label38
wksKalk.Cells(znr + 6, 25) = Me.TextBox80 * 1
wksKalk.Cells(znr + 6, 26) = Me.TextBox68 * 1
wksKalk.Cells(znr + 6, 37) = Me.TextBox43 * 1
wksKalk.Cells(znr + 6, 38) = Me.TextBox47 * 1
wksKalk.Cells(znr + 7, 25) = Me.TextBox81 * 1
wksKalk.Cells(znr + 7, 26) = Me.TextBox69 * 1
wksKalk.Cells(znr + 8, 25) = Me.TextBox82 * 1
wksKalk.Cells(znr + 8, 26) = Me.TextBox70 * 1
wksKalk.Cells(znr + 8, 37) = Me.TextBox32 * 1
wksKalk.Cells(znr + 8, 38) = Me.TextBox36 * 1
wksKalk.Cells(znr + 8, 40) = Me.TextBox56 * 1
wksKalk.Cells(znr + 9, 25) = Me.TextBox83 * 1
wksKalk.Cells(znr + 9, 26) = Me.TextBox71 * 1
wksKalk.Cells(znr + 9, 37) = Me.TextBox33 * 1
wksKalk.Cells(znr + 9, 38) = Me.TextBox37 * 1
wksKalk.Cells(znr + 9, 40) = Me.TextBox57 * 1
wksKalk.Cells(znr + 10, 25) = Me.TextBox84 * 1
wksKalk.Cells(znr + 10, 26) = Me.TextBox72 * 1
wksKalk.Cells(znr + 10, 37) = Me.TextBox34 * 1
wksKalk.Cells(znr + 10, 38) = Me.TextBox38 * 1
wksKalk.Cells(znr + 11, 25) = Me.TextBox85 * 1
wksKalk.Cells(znr + 11, 26) = Me.TextBox73 * 1
wksKalk.Cells(znr + 11, 37) = Me.TextBox35 * 1
wksKalk.Cells(znr + 11, 38) = Me.TextBox39 * 1
wksKalk.Cells(znr + 12, 25) = Me.TextBox58 * 1
wksKalk.Cells(znr + 12, 40) = Me.TextBox58 * 1
wksKalk.Cells(znr + 13, 25) = Me.TextBox59 * 1
wksKalk.Cells(znr + 13, 40) = Me.TextBox59 * 1
wksKalk.Cells(znr + 15, 37) = Me.Label71
With Me
Unload Me
ufposändern.Hide
End With
End Sub