Makro Zeilen einfügen ändern
25.01.2007 07:50:14
Frank
da mir schon mehrfach sehr kompetent geholfen wurde möchte ich erst aml dank an alle Helferlein sagen und mich in gleichem Atemzug mit dem nächsten Problemchen an euch wenden.Ich ahb folgendes Makro aus dem Forum und das funktioniert auch super, nur hätt ich es gern ein wenig verändert, so dass
nach dem ausführen des Makro's die Werte der Spalte A und B in den eingefügten Zeilen gelöscht werden und die die oberste Zelle der eingefügten Zeilen in Spalte A zur Dateneingabe aktiviert wird. Hab eine Bsp. Datei drangehängt zum veranschaulichen.
Vielen dank im Voraus
Frank
Private Sub CommandButton1_Click()
Dim zeilenanzahl As Integer
On Error GoTo Fehler
zeilenanzahl = InputBox("Wieviel Zeilen?")
ActiveCell.EntireRow.Copy
Range(ActiveCell, ActiveCell.Offset((zeilenanzahl - 1), 0)).EntireRow.Insert
Fehler:
Cancel = True
Application.CutCopyMode = False
End Sub
https://www.herber.de/bbs/user/39875.xls
Anzeige