Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Leerzeilen einfügen über VBA

Leerzeilen einfügen über VBA
22.12.2016 17:27:10
Schulle
Hallo Leute,
läßt sich Folgendes bewerkstelligen? ...
Wenn ich eine Schaltstelle betätige, soll sich eine Box öffnen, wo ich eine Anzahl für Leerzeilen eingeben kann, die nach Bestätigung an der Stelle eingefügt werden, wo sich gerade der aktive Cursor befindet.
Strg und + ist relativ aufwendig, gerade wenn ich mal z.B. 93 Leerzeilen benötige.
Vielen Dank schon mal
mfG Schulle
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen einfügen über VBA
22.12.2016 17:36:12
Crazy
Hallo
meinst du so?
Sub ZeilenEinfuegen()
Dim i As Integer
Dim n As Integer
Dim m As Integer
Dim k As Integer
Application.ScreenUpdating = False
n = ActiveCell.Row
i = Application.InputBox("Bitte die gewünschte Zeilenanzahl eingeben", "Zeilenanzahl", Type:=2)
m = n + i
For k = n To m
Rows(k).Insert
Next
Application.ScreenUpdating = True
End Sub
MfG
Anzeige
AW: Leerzeilen einfügen über VBA
22.12.2016 17:42:02
Crazy
Hallo
da wird eine Zeile Zuviel eingefügt
hier sollte es passen
Sub ZeilenEinfuegen()
Dim i As Integer
Dim n As Integer
Dim m As Integer
Dim k As Integer
Application.ScreenUpdating = False
n = ActiveCell.Row
i = Application.InputBox("Bitte die gewünschte Zeilenanzahl eingeben", "Zeilenanzahl", Type:=1)  _
- 1
m = n + i
For k = n To m
Rows(k).Insert
Next
Application.ScreenUpdating = True
End Sub
MfG Tom
Anzeige
AW: Leerzeilen einfügen über VBA
22.12.2016 17:55:25
Schulle
Geeenau was ich brauche, vielen vielen Dank Crazy Tom und Frohes Fest.
mfG Schulle
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige