Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1444to1448
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeilen kopieren und neue Zeile einfügen

VBA Zeilen kopieren und neue Zeile einfügen
10.09.2015 12:20:52
Dietz
Hallo zusammen,
ich würde gerne zwischen zwei Mappen Daten kopieren, d.h. aus einer in die andere. Die erste Zeile die kopiert wird soll in eine bestimmte Zeile kopiert werden, für alle anderen Zeilen die kopiert werden sollen, soll in der Zielmappe erst eine neue Zeile unterhalb eingefügt werden, wo rein kopiert werden soll.
Ich hoffe das war verständlich?
Das ganze wird als Schleife ablaufen. Bei jedem erhöhen der Schleife zB xcopy = xcopy + 1 soll aber eine neue Zeile eingefügt werden.
Gruß
Dietz

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeilen kopieren und neue Zeile einfügen
10.09.2015 13:24:13
UweD
Hallo
so?
Rückwärts, sonst musst du die eingefügten Zeilen immer noch mit berücksichtigen...

Sub Kopieren()
dim i As Integer
Sheets("Tabelle1").Rows(1).Copy Sheets("Tabelle2").Rows(4) 'fest in Zeile 4
For i = 10 To 2 Step -1
Sheets("Tabelle1").Rows(i).Copy
Sheets("Tabelle2").Rows(i).Insert Shift:=xlDown
Next
End Sub
Gruß UweD

AW: VBA Zeilen kopieren und neue Zeile einfügen
10.09.2015 14:26:01
Dietz
Hallo Uwe,
der Kopiervorgang soll nach bestimmten Bedingungen erfolgen. Mich interessiert zuerst ob ich innerhalb einer Schleife anstatt zu sagen xcopy = xcopy + 1, sprich nach erfolgreichem kopieren der einen Zeile geh mir eine Zeile weiter nach unten, auch definieren könnte, dass er mir erst eine neue leere Zeile einfügen soll bevor der Kopiervorgang fortgesetzt wird. So verstehe ich das, bin aber auch kein VBA Experte. Ist das so überhaupt sinnvoll wie ich mir das vorstelle?
Gruß
Dietz

Anzeige
AW: VBA Zeilen kopieren und neue Zeile einfügen
10.09.2015 14:52:23
UweD
Hallo
Ja, sicher kannst du Zeilen einfügen
Sub sdsdhgs()
Dim xcopy As Integer
xcopy = 1
Do Until xcopy = 10
ActiveSheet.Rows(xcopy).Insert
' hier kannst du kopieren, was du möchtest
xcopy = xcopy + 1
Loop
End Sub
Gruß UweD

AW: VBA Zeilen kopieren und neue Zeile einfügen
10.09.2015 15:21:31
Dietz
Hallo Uwe,
danke. Ich werde das mal ausprobieren ob das für mich so in der Form umsetzbar ist.
Gruß
Dietz

AW: Warum per Schleife?
10.09.2015 15:01:12
Gerd
Hallo D.!
Das ganze wird als Schleife ablaufen.
Das ist eine der langsameren Vorgehensweise beim Kopieren. Häufig geht die Aktion "am Stück".
Wie sind deine genauen Bedingungen?
Gruß Gerd

Anzeige
AW: Warum per Schleife?
10.09.2015 15:20:19
Dietz
Hallo G.!
in der Quellmappe soll geprüft werden ob ab Zeile 3 in der Spalte G der Wert größer 0 ist und ob in der Spalte AD "erfüllt" steht. Sind diese Bedingungen erfüllt sollen bestimmte Zellen aus der Quell- in die Zieldatei ab Zeile 10 kopiert werden. Die Quelldatei soll dann Zeile für Zeile abgearbeitet werden und bei Übereinstimmung in die Zeildatei kopiert werden bzw. die definierten Zellen. Ist eine Zeile rüber kopiert erfolgt dann mittels xcopy = xcopy +1 der Zeilensprung und dort werden dann weitere Werte eingetragen wenn Werte in der Quelldatei gefunden wurden. So verstehe ich das.
Es soll aber nicht nur eine Zeile nach unten gegangen werden, sondern es soll eine neue leere Zeile eingefügt werden wo dann die Werte rein sollen. Ich will damit vermeiden das ich mir andere Werte in der Zieldatei überschreibe. Die Zeilen sollen also dynamisch je nach Umfang der Werte in der Quelldatei erzeugt werden.
Gruß
Dietz

Anzeige
AW: Warum per Schleife?
10.09.2015 17:03:04
Gerd
sollen bestimmte Zellen aus der Quell- in die Zieldatei ab Zeile 10 kopiert werden
Hallo Dietz,
aus welchen Spalten sollen die Zellen kopiert werden?
Und in welche Spalten eingefügt werden?
Gruß Gerd

AW: Warum per Schleife?
10.09.2015 17:20:48
Dietz
Hallo Gerd,
kopiert soll aus den Spalten D,F,G,M,O,AE
und eingefügt in A,C,D,F,G,H
in dieser Reihenfolge, also D nach A, M nach F usw.
Gruß
Dietz
P.S.: Ich hab eine Alternative zusammengebastelt wo ich mir ausreichend Zeilen in der Zieldatei vorab einfüge damit nichts überschrieben wird. Nur dann müsste ich die überschüssigen Zeilen wieder löschen oder wie in diesem Makro leere Zeilen ausblenden. Aber das ist nur eine Notlösung. Lieber wäre mir die Zeilen dynamisch einzufügen. 
Sub AusblendenLeereZeilen()
Dim i As Long
Sheets("Ergebnisse").Activate
For i = 10 To 30
Range("A" & i).Select
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Hidden = True
Else
End If
Next i
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Problem mit Drag&Drop und kopieren (VBA)
Micha

Hallo liebe Spezialisten,
ich habe mal wieder ein Problem und hoffe auf Hilfe :-)
Hier im Forum habe ich den folgenden Code zum deaktivieren von „Drag&Drop“ bekommen.
Private Sub Workbook_Activate() 'Verhindert Drag&Drop (Teil-1) Application.CellDragAndDrop = False End Sub...
17.09.2008 10:34:00
Thread-ID: 1010266
2 Beiträge
Anzeige
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Anzeige
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 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
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
12
6
4
2
1
3
1
1
2
8
2
14
4
11
10
3
10
19
3
8
9
11
4
2