Daten in Tabelle schreiben, wie gehts schneller
11.06.2014 21:20:28
Christian
mit nachszehenden Code schreibe ich eine Listbox in die Tabelle.
Wenn die Anzahl der Zeilen größer ist, dauert es ein weilchen...
Meine Frage: Wie gehts schneller?
Mein Versuche mit einem Array über ReDim Preserve scheitern an mangelnden Kenntnissen!
Danke fürs Helfen!
MfG Christian
Private Sub MatinListe()
'# Materialliste von LB in Tabelle #
Dim iRow As Integer, iCol As Integer, iCounter As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
wksMat.Range("B21:F2500").ClearContents
For iRow = 0 To Me.ListBox1.ListCount - 1
iCounter = iCounter + 1
For iCol = 1 To 5
Select Case iCol
Case 1, 3
Worksheets("Material").Cells(iCounter + 20, iCol + 1) = Me.ListBox1.List(iRow, iCol - 1)
Case 2, 4, 5
Worksheets("Material").Cells(iCounter + 20, iCol + 1) = CDbl(Me.ListBox1.List(iRow, iCol - _
1)) * 1
End Select
Next iCol
Next iRow
wksMat.Cells(18, 4) = CDbl(Me.TextBox1)
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub