Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
988to992
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
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
20 Zeilen vor Zeile 1 einfügen
25.06.2008 20:20:00
Jean
Hallo,
wie kann man schnell zB 20 Zeilen vor der 1. Zeile einfügen, d.h. die Anzahl Zeilen soll bestimmbar sein?
Dank im voraus.
Gruß
Jean

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 20 Zeilen vor Zeile 1 einfügen
25.06.2008 20:52:00
Matthias
Hallo Jean
in ein Modul:
Option Explicit

Sub einFuegen()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To 20 'hier die 20 entsprechend ändern
Rows("1:1").Insert Shift:=xlDown
Next
Range("A1").Select 'optional
Application.ScreenUpdating = True
End Sub


evtl. vorher noch die entsprechende Tabelle aktivieren!
Gruß Matthias

AW: So evtl.
25.06.2008 21:00:38
hary
Hallo Jean
Hier eine Mappe. Die User Form taucht auf wenn Du erst auf Tabelle 2 gehst und dann auf Tabelle 1. Die Rote Zelle markiert nur die jetzige Zeile1. Nach dem einfuegen geht sie dementsprechend runter.
https://www.herber.de/bbs/user/53361.xls
Gruss Hary

Anzeige
AW: 20 Zeilen vor Zeile 1 einfügen
26.06.2008 10:21:00
UweD
Hallo
so z.B.


Option Explicit
Sub Makro1()
    Dim i%
    i = InputBox("Wieviele Leerzeilen""Zeilen dazu", 0)
    If i > 0 Then Rows("1:" & i).Insert Shift:=xlDown
End Sub


Gruß UweD

Anzeige
AW: 20 Zeilen vor Zeile 1 einfügen
27.06.2008 13:31:00
Jean
Hallo,
besten Dank für alle Beiträge. Damit wurde mir geholfen.
Gruß
Jean

19 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige