|
Hallo zusammen,
leider finde ich im Forum nichts, was auf mein Problem passt, daher mein ersten Beitrag.
Ich erhalte durch SAP eine Tabelle die für ACCESS weiter bearbeitet werden soll.
Über dieser Tabelle steht im Excel ein Projektname (Zelle D1) und ein Projektort (Zelle G1). Diese sollen rechts neben die SAP-Tabelle geschrieben werden. Bisher verwende ich folgenden Code:
Private Sub CommandButton1_Tab20_Click()
Dim lRow20 As Long
Dim i As Long
lRow20 = Tabelle28.Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To lRow20
Tabelle28.Cells(i, 26) = Tabelle28.Cells(1, 4)
Tabelle28.Cells(i, 27) = Tabelle28.Cells(1, 7)
Next i
End Sub
Leider dauert dies bei der Zeilenanzahl teilweise mehrere Minuten, bis dies durch ist.
Kann diese Funktion (z.B. via Copy) schneller umgesetzt werden?
Vielen Dank für eure Hilfe!
Stefan |