Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

20 Zeilen vor Zeile 1 einfügen

Forumthread: 20 Zeilen vor Zeile 1 einfügen

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

Anzeige

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

Anzeige
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
;

Forumthreads zu verwandten Themen

random Dateinamen .... E3914100 ...
Deister

Hallo,
Ich habe ein Exceltemplate erstelt, welche auf unserem Server abgelegt ist, von allen Kollegen abgerufen, ausgefüllt und dann mit einer Macro umbenannt und auf einem bestimmten Pfad abgespeichert wird.
Eigentlich kein Problem, doch wenn jemand die umbenannte Datei nochmals öffne...
23.09.2009 09:08:33
Thread-ID: 1104678
2 Beiträge
String "F15" For i = 1 to 20 bis "F34" hochzählen
Peter

Guten Abend
Angenommen, die String-Variable strZelle hat den Wert "F15". Wie kann ich diesen String "hochzählen"? Der 20. und letzte String müsste dann "F34" sein.
Wäre super, wenn man da jemand weiterhelfen könnte.
Gruss, Peter Sub Eintragen() Dim iAs Integer For i= 1 To 20 Cells(i...
04.11.2010 18:03:50
Thread-ID: 1185252
7 Beiträge
Zufallszahl erzeugen zwischen 0,1 und 0,3
ropa

Hallo,
wie kann ich in einem Bereich A1:A100 eine Zufallszahl erzeugen sie Betreff
Grüße
Roland
05.11.2012 21:52:11
Thread-ID: 1285434
4 Beiträge
Makro in Excel 2010 aus Word 2010 starten
Stephan

Hallo zusammen,
ich möchte aus Word eine Excel-Datei öffnen (für den umgekehrten Fall finde ich diverse Lösungen im Netz), in der ein Excel-Script ausgeführt wird, um danach wieder zurück nach Word zu wechseln.
Hintergrund: Es soll eine Tabelle aus dem Zwischenspeicher in Excel verarbei...
14.01.2013 10:50:37
Thread-ID: 1294147
2 Beiträge
Am 1.1. per VBA Ordner 2014 anlegen
Bernd

Hallo zusammen,
Brauche Hilfe bei nachfolgendem Problem, komme einfach nicht weiter.
Und zwar möchte ich das automatisch beim ersten Öffnen der Arbeitsmappe im Ordner "D:\Firma\Schriftwechsel\" ein neuer Ordner mit der aktuellen Jahreszahl (2014) angelegt wird.
Wer kann mir behilfli...
17.09.2013 10:54:53
Thread-ID: 1331135
12 Beiträge
Find-Methode zwischen 2010 und 2013
AndrRo

Hallo zusammen,
diese Programmzeile funktioniert unter 2010 ohne Probleme:
Sheets("Zähler").Range("A5:A8").Find("Test").Offset(0, 3) = 5
In 2013 bricht er mit der Fehlermeldung ab:
Objektvariable oder With-Blockvariable nicht festgelegt(Fehler 91)
Die "Hilfe" hilft mir nicht...
27.11.2013 23:05:24
Thread-ID: 1340299
4 Beiträge
Übergabe von Variablen von UserForm1>>UserForm2
Jan

Moin,
aus UserForm1 heraus wird UserForm2 aufgerufen und dort dann einige Dinge ermittelt/berechnet. Die Ergebnisse dieser Ermittlungen/Berechnungen sollen dann in UserForm1 weiterverwendet werden. Wie kann man also Variablen zwischen verschiedenen UserForms hin- und herschieben??? Zur Zeit...
03.08.2002 13:34:49
Thread-ID: 144406
3 Beiträge
Daten zwischen 2013 und 2010
Ludicla

Hallo Profis,
wir haben übers Internet eine Datei erhalten.
Mit Version 2013 sind nur bis zu einer Zeile (z.B. 106) die Daten vorhanden
aber in der Version 2010 bzw. sogar 2003 sind mehr Zeilen gefüllt.
Die Ursprungsdatei hat die Endung xlsx und bei der Version hat Excel die Dat...
07.03.2018 12:15:44
Thread-ID: 1612720
5 Beiträge
Anzeige
Übergabe von Variablen aus UserForm1 in UserForm2
Timsen
Hab eine UserForm2 in die ich automatisch (ohne irgendwelche Button) den Wert einer Variblen aus UserForm1 übergeben muss. Brauche ich dazu ein Modul oder wie geht dies?
10.12.2003 14:38:36
Thread-ID: 350218
2 Beiträge
Zeit (hh:mm:ss,00) x einem Faktor 0.01
heinz
Hi,
ich hab eine Zelle in hh:mm:ss,00 formatiert und dann gibt es eine Zelle die als Zahl Formatiert ist, in der steht der Faktor.
Beispiel: Zeit= 00:00:01,00 mal den Faktor 0,01 (1/10sek = 0,01 Fehler) = 1 Fehler
wie muss ich das den jetzt formatieren oder wie muss die formel sein? Wen...
22.01.2004 17:15:52
Thread-ID: 369113
18 Beiträge
Suche EM 2004 Tippvorlage für 10 Spieler
Dieter

Hallo Experten, suche für Tippvorlage für EM 2004 ( 10 Tipper ).
Vieleicht hatt jemand von euch so eine Tippvorlage erstellt und würde Sie zu Verfügung stellen ?
Würde gerne selbst eine erstellen bin aber zur Zeit stationär im Krankenh.
Ich hoffe das mir einer, wenn vorhanden zu Ver...
05.06.2004 11:30:18
Thread-ID: 437736
3 Beiträge
Zufallszahl zwischen 10.000 und 99.999
Headhunter

hallo,
ich brauche eine Zufallszahl, die zwischen 10.000 und 99.999 liegen soll.
Mit meiner Formel gehen auch noch kleinere Zahlen als 10.000
=ZUFALLSZAHL()*99999
MfG
HANS
16.06.2004 09:22:00
Thread-ID: 441898
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige