Inputbox - Code Zeilen einfügen
21.09.2015 10:34:06
Erwin
von verschiedenen Beiträgen aus dem Forum habe ich mir eine Inputbox zusammengebastelt, doch leider schaffe ich es nicht, dass auch wirklich Zeilen eingefügt werden.
Sub Zeilen_einfuegen()
Dim strEingabe As Variant
strEingabe = Application.InputBox("Wieviele Zeilen einfügen?", "Zeilen einfügen", 1)
If IsNumeric(strEingabe) Then
End If
If strEingabe = "" Then
MsgBox "Nichts eingegeben"
End If
If Not IsNumeric(strEingabe) Then
MsgBox "Keine Zahl eingegeben"
End If
If strEingabe = False Then
MsgBox "Abbrechen angeklickt"
End If
End Sub
...Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove...
Außerdem sollte nur die Eingaben der Zahlen von 1 bis 20 zulässig sein.
Leider bekomme ich es nicht hin -wer kann mir bitte helfen?
Grüße - Erwin