söker en lösning på fyllning av arket, den som jag har är ej bra

Vill ha en typ autofill



Public Function VBINKORN(intab1 As String, utsokv As String, NROO As Integer, ifra As String, sp As Integer)
Dim ska As String
Dim spoj As New Collection
Dim Exscel As Object

Set Excel = GetObject(, "Excel.Application")
Exscel.Visible = True

With Exscel
.Worksheets(1).Range("a" & NROO + 220 & "") = intab1
.worksheets(1).Range("b" & NROO + 220 & "") = spejgan(0)
.Worksheets(1).Range("c" & NROO + 220 & "") = Time
.Worksheets(1).Range("d" & NROO + 220 & "") = Replace(a1, ".", ",")
.Worksheets(1).Range("e" & NROO + 220 & "") = Replace(a2, ".", ",")
.Worksheets(1).Range("f" & NROO + 220 & "") = Replace(a3, ".", ",")
.Worksheets(1).Range("g" & NROO + 220 & "") = Replace(a4, ".", ",")
.Worksheets(1).Range("h" & NROO + 220 & "") = "s5"
End With


End Function

Varför är den ej bra? Vad menar du med att det ska funka som ... Autofill??

Man kan få bättre prestanda om du bygger upp en sträng i minnet i VB programmet.
(se upp hur du bygger upp strängen dock. INTE så här:
s = s & NextField osv...)
Sen sätter du din String till Clipboarden och kör sen Worksheet.Paste() metoden.

Ola