Excell- Visual-Basc

Accepteret svar fra moses
Point : 30
Public Sub InRow()
    Dim StartRow As String
    Dim RowCounter As Integer
   
    StartRow = \"4:4\"
    For RowCounter = 1 To Range(\"A1\").Value
        Range(StartRow).Insert
    Next
End Sub

13-10 2000 09:02:24 Godt svar. Men nu arbejder jeg videre med mit egentlige spørgsmål.

Jeg har eks. fire ( er vriabel )-rækker.
Dem skal jeg kopiere i exell, og for formlerne kopieret skal de indsættes nedenfor de valgte rækker ( de kan stoppe ved  en række der hedder expert, men skal som angivet i koden ovenfor indsættes i antal som angivet i celle A1. Cellerne efter \"Expert skal ligeledes indsættet som angivet i A1, men række antal kan være anderledes en rækkerne for første indsætning, men antal rækker = antal angivet i A1, og succesivt dernedaf.
PS. rækkerne skal vælges, koperes ved angive rækker, og derefter flyttes ned tilnæste expert, indsæt og paste.

Er den for indviklet sig til.
Hilsen Knud