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

Zeilen einfügen und kopieren

Forumthread: Zeilen einfügen und kopieren

Zeilen einfügen und kopieren
09.07.2007 11:30:00
Daniel
Hallo!
Ich möchte in einer Tabelle für jede vorhandene Zeile direkt darunter zwei neue Zeilen einfügen.
Zusätzlich soll dann der Text in Spalte D in die erste Zeile der neuen Zeilen in Spalte D kopiert werden.
Somit wird aus
So steht es da:
Spalte C Spalte D
ABC 123
DEF 456
Ziel:
ABC 123
123
DEF 456
456
Wie macht man das?
Danke schonmal für Tipps!

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einfügen und kopieren
09.07.2007 16:17:00
Chris
Servus,
das geht z.B. so:

Sub test()
Dim r As Integer, z As Integer, s As Integer, z1 As Integer
r = Range("A65536").End(xlUp).Offset(0, 0).Row
Range("A65536").End(xlUp).Offset(1, 0).EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Range("A65536").End(xlUp).Offset(1, 0).Value = Range("B65536").End(xlUp).Offset(0, 0).Value
For z = r To 1 Step -1
Cells(z, 1).EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Next z
Range("A1").EntireRow.Delete
Range("A1").EntireRow.Delete
Range("A65536").End(xlUp).Offset(-2, 0).Select
s = ActiveCell.Row
For z1 = 1 To s Step 1
If Cells(z1, 1).Value  "" And Cells(z1, 2).Value  "" Then
Cells(z1 + 1, 1).Value = Cells(z1, 2).Value
End If
Next z1
End Sub


Ich gehe hierbei davon aus, dass die Werte bis Zeile 1 stehen und unterhalb der Tabelle keine weiteren Werte in Spalte A.
Gruß
Chris

Anzeige
AW: Zeilen einfügen und kopieren
09.07.2007 16:29:09
Daniel
Hi!
Danke. Jetzt wird aber B nach A kopiert und ich brauche D nach D.
Was muss dafür geändert werden?
Vielen Dank,
Daniel

AW: Zeilen einfügen und kopieren
09.07.2007 16:56:32
Chris
Servus,
For z1 = 1 To s Step 1
If Cells(z1, 1).Value "" And Cells(z1, 2).Value "" Then
Cells(z1 + 1, 4).Value = Cells(z1, 4).Value
End If
Next z1
In der letzten Schleife aus ,1 ,4 machen.
Gruß
Chris

Anzeige
AW: Zeilen einfügen und kopieren
09.07.2007 17:02:00
Daniel
Danke!

Forumthreads zu verwandten Themen

Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
Gefilterte Zeilen/ Spalten Kopieren
Falk

Hallo zusammen,
folgendes Problem für mich:
Ich filtere den Bereich von A1:CD1000. Der Filter wird je nach Anforderung auf verschiedene Spalten gesetzt.
In den Zellen von Spalte A befindet sich eine Formel, die den Blattnamen anzeigt wenn in Spalte D und F etwas eingetragen ist anso...
11.11.2008 10:13:33
Thread-ID: 1023442
3 Beiträge
Daten in gefilterten Bereich Kopieren
Sebastian

Hallo Forum,
vielleicht kann mir jemand bei meinem Problem helfen. Google konnte es nicht. :(
Ich habe ein Tabellenblatt mit gefilterten Daten. Nun möchte ich von einem anderen Tabellenblatt Daten neben die gefilterten, noch sichtbaren Daten kopieren. Excel lässt das leider nicht zu.
03.02.2009 15:19:09
Thread-ID: 1046691
2 Beiträge
Anzeige
Zeilen mit ähnlichem Inhalt kopieren
Lauren

Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
10.02.2009 14:31:49
Thread-ID: 1049097
4 Beiträge
String in gefilterter Liste kopieren
Werner

VBA-Level: befriedigend
Hallo Freunde,
in Spalte A eines Worksheet stehen einige tausend Strings. Mit dem Automatikfilter
filtert man eine Teilmenge davon heraus. Anschließend versucht man in dieser Spalte Strings
zusammenzulegen, und zwar so, dass jeweils der String in Spalte A...
08.04.2009 11:34:22
Thread-ID: 1067668
4 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
gefilterten Bereich kopieren
Thomas

Moin moin,
habe in einem Blatt eine Filterung nach einem Kriterium in Spalte E.
Diese gefilterten Daten möchte ich nun --- und zwar mit Formeln --- in ein neues Tabellenblatt kopieren.
Problem: Im neuen Tabellenblatt wirft EXEL ab Spalte AB die Zeilen durcheinander bzw. nimmt diese...
12.06.2009 10:51:03
Thread-ID: 1080913
2 Beiträge
Zeilen in anderes Arbeitsblatt kopieren
Alex

Hallo @ all
ich habe folgendes Problem:
Tabelle 1 enthält eine Vielzahl von Daten. Diese will ich nun filtern und die jeweilige Zeile, die in N "TGA" enthält in Tabelle 2 kopieren.
Ich weiß, dass das Ganze mit wenn(summe... funktioniert, aber vermute, man muss hier feste Zahlen ange...
06.07.2009 11:29:58
Thread-ID: 1086570
7 Beiträge
VBA Zellbereich kopieren
Karin

Hallo Forum,
ich muss von einem Tabellenblatt bei bestimmten Bedingungen Zellbereiche in ein anderes Tabellenblatt kopieren. Eigentlich leicht, dachte ich ... In den XL-Beispielen habe ich auch ein wunderbares Makro gefunden, das per Doppelklick den gesamten Zellbereich in das zweite Tabell...
14.07.2009 19:08:09
Thread-ID: 1088630
10 Beiträge
Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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