Befüllen der Zeilen dauert lange...
09.05.2014 06:31:26
Christian
mit folgendem Code übertrage ich Daten von einer Userform in ein Tabellenblatt.
Das ganze fkt. zwar, dauert aber ca. 2 Minuten.
Wie kann man das optimieren?
Danke im Voraus!
Option Explicit
Private Sub cmdspeichernpos_Click()
Dim lz As Long
Dim arrNumbers, varNumber, lngNumber As Long
With Sheets("Positionen")
lz = .Range("B:B").Find("*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, SearchFormat:=False).Row + 1
If lz 2 Then
arrNumbers = .Range(.Cells(1, 1), .Cells(lz - 1, 1))
For Each varNumber In arrNumbers
If lngNumber MfG Christian