Wert einfügen
Heinz
Im unteren Makro,kann ich per InputBox Zeilen einfügen.
Nun möchte ich noch gerne,wenn Zeilen eingefügt werden,das in der Spalte "I" der Wert "Test" eingefügt wird.
Könnte mir dazu bitte jemand weiterhelfen?
Gruß
Heinz
Sub ZeilenEinfügen()
Dim i As Long
On Error GoTo ende
For i = 1 To InputBox("Wieviele Paletten werden nachproduziert?", "Zeilen einfügen", 1)
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Next i
ende:
End Sub
Anzeige