Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten mit For-Next-Schleife x-mal kopieren...

Forumthread: Spalten mit For-Next-Schleife x-mal kopieren...

Spalten mit For-Next-Schleife x-mal kopieren...
08.06.2016 18:08:31
Christian
Hallo,
ich bin mittlerweile echt am Verzweifeln, weil ich nicht weiß wie man z.B. Spalte A bis C x-fach weiterkopieren kann - d.h. die 3 Spalten (A:C inkl. Inhalt) sollen kopiert und an einer bestimmten Position des selben Blatts (z.B. Spalte E) eingefügt werden und das z.B. 10 mal hintereinander - natürlich nicht 10 mal in Spalte E sondern angrenzend an das Ende der vorherigen Kopie - die restlichen Spalten bis auf 1 können gelöscht werden.
Ich hoffe ich konnte mein Vorhaben gut genug beschreiben, damit ihr mir hoffentlich weiterhelfen könnt...
Danke!
Glg,
Chrisi

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten mit For-Next-Schleife x-mal kopieren...
08.06.2016 18:11:09
Christoph
Hey,
Spalte A:C sollen dann untereinander in E eingefügt werden oder in die Spalten E:G?
Welche Spalte soll nicht gelöscht werden nur die "neue" Spalte E nicht oder A auch nicht
Gruß Christoph

AW: Spalten mit For-Next-Schleife x-mal kopieren...
08.06.2016 18:16:37
Christian
Es sollen die ganzen Spalten kopiert werden - also nach E:G - es sollen weiters dann die übrigen Spalten gelöscht werden - wenn z.B. nur einmal kopiert wurde, dann alles nach rechts löschen bis auf 1 leere Spalte - also Spalte H bleibt übrig.
Lg

Anzeige
AW: Spalten mit For-Next-Schleife x-mal kopieren...
08.06.2016 18:29:04
Hajo_Zi
Spalte H soll übrig bleiben. In Spalte H wurde nichts kopiert. Warum dann nicht einfach Spalte A:C löschen. Ganz ohne kopieren.
Gruß Hajo

AW: Spalten mit For-Next-Schleife x-mal kopieren...
08.06.2016 18:35:38
Christoph
Kannst du vielleicht einmal eine Beispieldatei hochladen. Einmal mit dem Ausgang und im anderen Tabellenblatt das Ergebnis?
Wenn mehrmals eingefügt werden soll dann immer in Spalte E:G in der nächsten freien Zeile oder als nächstes das Spalte H:J?

Anzeige
AW: Spalten mit For-Next-Schleife x-mal kopieren...
08.06.2016 19:11:21
Christoph
Wieso muss ab den eingefügten Spalten immer gelöscht werden? da ist doch nichts außer leere Spalten.

Anzeige
AW: Spalten mit For-Next-Schleife x-mal kopieren...
08.06.2016 19:12:30
Christian
Weils besser aussieht ;-)

AW: Spalten mit For-Next-Schleife x-mal kopieren...
08.06.2016 19:22:46
Christoph
Das ist natürlich ein Argument:)
Mach ich dir Fertig. 8 Uhr haste Antwort.
Gruß
Christoph

AW: Spalten mit For-Next-Schleife x-mal kopieren...
08.06.2016 20:28:44
Christoph
Hallo,
hier das Makro.
Einfach in die Inputbox eingeben wie oft kopiert werden soll.
Dieses Makro ist Flexibel. Das heißt es könnten auch 4 und mehr Spalten zum kopieren sein. Das Makro lässt dann zwischen den zu kopierenden und den eingefügten Dateien immer eine Spalte frei. 
Sub kopieren()
AnzahlKopieren = InputBox(Anzahl_Kopien)
Range(Cells(1, 1), Cells(1, 16384)).EntireColumn.Hidden = False
lSpalte = Cells(1, Columns.Count).End(xlToLeft).Column
PlusSpalte = lSpalte
ende = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Range(Cells(1, 1), Cells(ende, lSpalte)).Copy
For n = 1 To AnzahlKopieren
Cells(1, lSpalte + 2).Select
ActiveSheet.Paste
lSpalte = lSpalte + PlusSpalte
Next n
Range(Cells(1, lSpalte + 3), Cells(1, 16384)).EntireColumn.Hidden = True
End Sub
Gruß Christoph

Anzeige
AW: Spalten mit For-Next-Schleife x-mal kopieren...
09.06.2016 12:33:17
Christian
Hallo Christoph!
Besten Dank für deine rasche Hilfe - funktioniert in der Beispieldatei tadellos...
Wie muss ich das Coding anpassen, wenn Spalte X:AD kopiert und ab AE eingefügt werden soll - Du ermittelst ja die nicht leeren Spalten - wenn z.B. 4 Spalten nicht leer sind, werden 4 Spalten kopiert...
Das ist nun sicherlich nur mehr eine Kleinigkeit - bitte daher nochmals um Unterstützung - Danke!!!
Lg,
Chrisi

Anzeige
AW: Spalten mit For-Next-Schleife x-mal kopieren...
09.06.2016 17:14:52
Christoph
Hallo Chrisi,
weiß nicht genau wie du das haben willst.
Jetzt wird im Makro die erste beschrieben Spalte gesucht und die letzte beschriebene Spalte, daneben dann eingefügt.
Wenn du einen festen Bereich hast, der kopiert werden soll musst du die Zeilen anpassen wo # sind. 
Sub kopieren()
AnzahlKopieren = InputBox(Anzahl_Kopien, "Wie oft soll kopiert werden?")
Range(Cells(1, 1), Cells(1, 16384)).EntireColumn.Hidden = False
With ActiveSheet
eSpalte = IIf(IsEmpty(.Cells(1, 1)), _
.Cells(1, 1).End(xlToRight).Column, _
1)
End With
'#####eSpalte = 24
lSpalte = Cells(1, Columns.Count).End(xlToLeft).Column '#####30
PlusSpalte = lSpalte - eSpalte + 1
ende = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Range(Cells(1, eSpalte), Cells(ende, lSpalte)).Copy
For n = 1 To AnzahlKopieren
Cells(1, lSpalte + 1).Select
ActiveSheet.Paste
lSpalte = lSpalte + PlusSpalte
Next n
Range(Cells(1, lSpalte + 2), Cells(1, 16384)).EntireColumn.Hidden = True
End Sub

Gruß Christoph
Anzeige
;

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
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
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
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
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
kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Anzeige
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 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
Anzeige
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige