Regels invoegen a.d.v.h. variabele of een celwaarde

[ExcelTonnie]

Dan moet je of: .Net FrameWork 3.0 installeren of deze proberen.

Sub hsv()
Dim sv, sca As Object, i As Long
If Range("b1") > 0 Then
 With ActiveSheet.ListObjects(1).ListRows(1)
  sv = .Range.Formula
   .Range.Resize(Range("b1")).Insert , xlBelow
   .Range.Resize(Range("b1")).Formula = sv
 Set sca = CreateObject("scripting.dictionary")
      For i = Range("b1").Value To 1 Step -1
        sca(i) = sv(1, 1) + i
      Next i
   .Range.Resize(Range("b1"), 1) = Application.Transpose(sca.items)
  End With
 End If
End Sub

Beste HSV

Een en ander getest in mijn omgeving echter is het max. in Cel B1 wat ik kan ingeven 14 en heb geen idee waarom dit de max is anders een error.
Heb jij een verklaring hiervoor. Verder werkt het prima.

 

[HSV]

iets ***ligs.

 .Range.Resize(Range("b1")).Insert [COLOR=#ff0000]xldown[/COLOR], xlBelow

 

[ExcelTonnie]

iets ***ligs.

 .Range.Resize(Range("b1")).Insert [COLOR=#ff0000]xldown[/COLOR], xlBelow

iets ***ligs. (weet niet wat je daar mee bedoelt maar het werkt, super bedankt.

 

[HSV]

Ik had daar het mannelijk geslachtsdeel staan, maar dat wordt automatisch door Helpmij.nl weggewerkt door een sterretje. :d