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

Zeilen kopieren und einfügen

Forumthread: Zeilen kopieren und einfügen

Zeilen kopieren und einfügen
05.07.2004 12:12:39
Uwe
Hallo liebe Spezialisten!
In einer Excel-Tabelle soll nach jeder Zeile eine leere weitere Zeile eingefügt werden und danach zusätzlich noch die Zeile unter der dann die leere zu finden ist.
BSP:
vorhanden ist
Zeile 1
entstehen soll folgendes:
Zeile 1
+ leere Zeile darunter
+ Kopie der Zeile 1
Weiß einer von Euch, wie ich das hinbekommen kann? Wäre super!
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen kopieren und einfügen
Reinhard
Hi Uwe,

Sub einfüg()
letzte = Range("A65536").End(xlUp).Row
pos = 2
While pos <= letzte * 4
For n = 1 To 3
Cells(pos, 1).EntireRow.Insert
Next n
Rows(pos - 1).Copy Destination:=Rows(pos + 1)
pos = pos + 4
Wend
End Sub

Gruß
Reinhard
AW: Zeilen kopieren und einfügen
Uduuh
Hallo,
folgenden Code in ein Modul kopieren:

Sub leereZeilen()
Dim Z As Integer
Application.ScreenUpdating = False
For Z = Sheets(1).Cells(65536, 1).End(xlUp).Row To 1 Step -1
Range(Rows(Z + 1), Rows(Z + 2)).EntireRow.Insert shift:=xlDown
Rows(Z).Copy Destination:=Cells(Z + 2, 1)
Next Z
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de
Anzeige
AW: Zeilen kopieren und einfügen
Uwe
Erst einmal vielen Dank für die beiden Lösungsvorschläge. Allerdings ist mir ein Fehler unterlaufen. Und da ich keine Ahnung in VB kann ich auch leider nichts am Modul modifizieren. Vielleicht könnt Ihr mir nochmal helfen:
Enstehen soll folgendes:
Zeile 1
+Kopie der Zeile 1
+leere Zeile darunter
Im urpsprünglichen Thread habe ich die Zeilen vertauscht. Sorry.
Freue mich auf Antwort.
Danke.
Anzeige
AW: Zeilen kopieren und einfügen
Reinhard
Hi Uwe,

Sub einfüg()
letzte = Range("A65536").End(xlUp).Row
pos = 2
While pos <= letzte * 3
For n = 1 To 2
Cells(pos, 1).EntireRow.Insert
Next n
Rows(pos - 1).Copy Destination:=Rows(pos)
pos = pos + 3
Wend
End Sub

Gruß
Reinhard
AW: Zeilen kopieren und einfügen
Uduuh
dann so:

Sub leereZeilen()
Dim Z As Integer
Application.ScreenUpdating = False
For Z = Sheets(1).Cells(65536, 1).End(xlUp).Row To 1 Step -1
Range(Rows(Z + 1), Rows(Z + 2)).EntireRow.Insert shift:=xlDown
Rows(Z).Copy Destination:=Cells(Z + 1, 1)
Next Z
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de
Anzeige
AW: Zeilen kopieren und einfügen
Uwe
Vielen Dank an Euch beide. Hat super geklappt.
Noch eine schöne Woche.
Uwe
;

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Zeilen mit Makro aus Mustertabelle kopieren
obelix-xxl

Hallo,
ich wende mich an dieses Forum mit der Bitte eine Makrolösung aufzuzeigen.
Udo hat mir gestern eine Lösung zum Kopieren von Zeilen hier ins Forum gestellt. Diese ist auch so genau richtig.
Nachdem ich diese nun einsetzen kann, benötige ich eine weiteres Kopiermakro.
In me...
26.09.2008 16:29:07
Thread-ID: 1012698
10 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Zeilenumbruch in Formel
Jochen

Hallo, kann ich einen Zeilenumbruch in eine Formel berücksichtige.
Das ist meine Formrl:
=WENN(A11"";VERKETTEN(A11;"/";$C$2;" - ";B11;"/";$C$2;
"ZEILENUMBRUCH AN DIESE STELLE";$C$4;". Trommel X von ";F11);"")
Danke im voraus
Jo. Bo.
04.11.2008 13:35:00
Thread-ID: 1021604
3 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Zellen formatierung mit Formeln
Peter

Hallo
habe eine Formatierung in einer Zelle, in der er die 0 als 00 anzeigen soll.
Das macht er so lange ich keine Formel drin habe.
Sobald die Formel drin ist., zeigt er mir nur eine 0 (Null an.
die Formel ist
RECHTS(SUMMEWENN(C14:C40;">0";G14:G40);2)
Wie bekomme ic...
08.11.2008 18:25:00
Thread-ID: 1022970
7 Beiträge
Anzeige
Zeilen selektiv kopieren und löschen
stelud

Hallo,
folgendes Beispiel mit 5 Zeilen :
A B C D
12 12 555 2222
13 13 555 2222
14 14 555 2222
24 24 600 2244
25 25 555 2222
28 28 555 2222
29 29 555 2222
30 30 555 2222
34 34 600 2244
39 39 555 2222
Ich möchte nun alle Zeilen, bei den...
17.11.2008 10:11:00
Thread-ID: 1025093
11 Beiträge
Anzeige
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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