krijg foutmelding bij "esc" drukken bij een inputbox

[universe]

ik ben der eindelijk uitgekomen

Sub Rij_add()
Dim vInputgetal As Long

vTeller = 0


    On Error Resume Next
        Application.DisplayAlerts = False
            vInputgetal = Application.InputBox _
             (Prompt:="Hoeveel rijen wilt u invoegen ?", _
                    Title:="Abbot Zwolle Beslisboom", Type:=1)
    On Error GoTo 0
    Application.DisplayAlerts = True

        If vInputgetal = 0 Then
            Exit Sub
        Else
            Do
    
        vTeller = vTeller + 1
    
    Sheets("Sheet2").Rows("1").Copy
    ActiveCell.Offset(1, 0).Select
    Selection.Insert Shift:=xlDown
    ActiveSheet.Paste
        
        
    Loop Until vTeller = vInputgetal
        End If
        
End Sub

 

[Wigi]

ik ben der eindelijk uitgekomen

Sub Rij_add()
Dim vInputgetal As Long

vTeller = 0


    On Error Resume Next
        Application.DisplayAlerts = False
            vInputgetal = Application.InputBox _
             (Prompt:="Hoeveel rijen wilt u invoegen ?", _
                    Title:="Abbot Zwolle Beslisboom", Type:=1)
    On Error GoTo 0
    Application.DisplayAlerts = True

        If vInputgetal = 0 Then
            Exit Sub
        Else
            Do
    
        vTeller = vTeller + 1
    
    Sheets("Sheet2").Rows("1").Copy
    ActiveCell.Offset(1, 0).Select
    Selection.Insert Shift:=xlDown
    ActiveSheet.Paste
    
    Loop Until vTeller = vInputgetal
        End If
        
End Sub

Ik begrijp niet waarom je teruggrijpt naar de lus (do ... loop). Mijn laatste voorstel werkte trouwens goed. Maar jij kiest natuurlijk wat je doet, ik kan alleen maar raad geven.

Wigi

 

[universe]

dan heb ik blijkbaar iets verkeerd gedaan ofzo of ik bedoel iets anders dan jij denkt dat ik bedoel.
Maar het werkt in ieder geval dat is het belangrijkste en ik snap t op deze manier

maar in ieder geval weer bedankt voor alle hulp.

Heb nu al zoveel aan dit forum gehad:thumb: