sehr langsam
13.08.2008 09:47:00
sbello
ich schaffe es einfach nicht festzustellen warum mein code so langsam meine zellen füllt.
habe ne userform mit textboxen, beim "klick" auf CBVUAnlegen, soll ein neuer datensatz geschrieben werden, nur macht er das für die einzelnen zellen, extrem langsam.
Private Sub CBVUAnlegen_Click()
Dim i As Long
With Sheets("VU")
i = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(i, 1) = TextBox1
.Cells(i, 2) = TextBox3
.Cells(i, 3) = TextBox2
.Cells(i, 5) = TextBox4 * 1
.Cells(i, 6) = TextBox5 * 1
.Cells(i, 7) = TextBox6 * 1
.Cells(i, 8) = USER
.Cells(i, 9) = DATUM
.Cells(i, 10) = TextBox7
Dim Formula1 As String
Formula1 = "=SUMIF(BR!E:E,VU!A" & i & "," & "BR!F:F)"
.Cells(i, 4).Formula = Formula1
End With
Sheets("VUID").Cells(1, 1).Value = Sheets("VUID").Cells(1, 1).Value + 1
Unload Me
VUAnlegen.Show
End Sub