Spreadsheet---schreiben in Tabelle---es dauert?
19.09.2005 14:00:51
Peter
auf einer Userform habe ich u.a. ein Spreadsheet in das im angegebenen Bereich Werte geschrieben werden, die per nachstehendem Code in eine Tabelle übernommen werden. Es klappt auch zuverlässig, jedoch dauert dies immer einige Sekunden, so dass zwischenzeitlich die Sanduhr erscheint:
Private Sub Spreadsheet2_CommandExecute(ByVal Command As Variant, ByVal Succeeded As Boolean)
Sheets("WKKlasseBeginner").Select
Dim iRow As Integer, iCol As Integer
For iRow = 16 To 100
For iCol = 22 To 42 Step 2
Cells(iRow, iCol).Value = _
Spreadsheet2.Cells(iRow, iCol).Value
Next iCol
Next iRow
Dim i%, j%
For i = 1 To 44
For j = 10 To 100
Me.Spreadsheet2.Cells(j, i).Value = Worksheets("WKKlasseBeginner").Cells(j, i).Value
Next j
Next i
End Sub
Frage: Gibt es alternativ eine schnellere Möglichkeit dies zu bewerkstelligen oder gibt es "Stellschrauben" woran man drehen könnte? Mit dem zweiten Teil des Codes veranlasse ich dann, dass Ergebnisänderungen durch die Eingabe wieder im Spreadsheet dargestellt werden.
Vielen Dank für Hilfe
Peter S.