Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Makro Zeilen einfügen ändern
25.01.2007 07:50:14
Frank
Hallo Leute,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Zeilen einfügen ändern
25.01.2007 08:30:18
haw
Hallo Frank,
etwa so:

Sub ZeilenEinfügen()
Dim zeilenanzahl As Integer
On Error GoTo Fehler
zeilenanzahl = InputBox("Wieviel Zeilen?")
ActiveCell.EntireRow.Copy
Range(ActiveCell, ActiveCell.Offset((zeilenanzahl - 1), 0)).EntireRow.Insert
Cells(ActiveCell.Row, 1).Select
Range(ActiveCell, ActiveCell.Offset((zeilenanzahl - 1), 1)).ClearContents
Fehler:
Cancel = True
Application.CutCopyMode = False
End Sub

Gruß Heinz
Dank an Heinz Problem gelöst
25.01.2007 10:49:18
Frank
Vielen Dank Heinz geht klasse !!
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige