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

Zeilen per Makro nach unten kopieren

Forumthread: Zeilen per Makro nach unten kopieren

Zeilen per Makro nach unten kopieren
08.04.2015 21:24:43
Felix
Meine Ausgangstabelle ist der Bereich von A bis D. Ich möchte eine Tabelle rechts davon in G bis J erstellen, die dieselben Zeilen enthält. Zusätzlich sollen aber die Zeilen aus der Tabelle links entsprechend der Anzahl in Spalte D kopiert werden.
In der Spalte Copy gebe ich also an, wie of die jeweilige Zeile in der neuen Tabelle kopiert werden soll.
Gibt es dafür ein Makro?
https://www.herber.de/bbs/user/96957.xlsx
Vielen Dank schon mal für Eure Hilfe!

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen per Makro nach unten kopieren
09.04.2015 08:04:11
Werner
Hallo Felix,
diesen Code in das Code-Fenster des Tabellenblattes kopieren auf das sich der Code auswirken soll. Überwacht wird die Spalte D auf Eingaben.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim x As Long
Application.ScreenUpdating = False
If Target.Column = 4 And Not IsEmpty(Target) Then
If Cells(Target.Row, 1).Value = "" Or Cells(Target.Row, 2).Value = "" Or Cells(Target.Row, 3). _
Value = "" Then
Target = ""
Cells(Target.Row, 1).Select
MsgBox "Erst alle Datenfelder füllen."
Exit Sub
Else
If Not IsNumeric(Target) Then
MsgBox "Nur Eingabe von Zahlen zulässig."
Target = ""
Target.Select
Exit Sub
Else
i = Cells(Rows.Count, 7).End(xlUp).Row + 1
x = Target.Value
Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Copy
Cells(i, 7).Resize(x).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
End If
End If
End If
Application.ScreenUpdating = True
End Sub
Im Code wird die letzte belegte Zelle in Spalte G ermittelt und danach die Daten reinkopiert.
###Wichtig###
In der Datei die du hochgeladen hast, geht deine Tabelle der Spalten G:H bis zur Zeile 124. Zieh bitte deine Tabellenrahmen von 124 nach oben, so dass nur die belegten Zeilen in der Tabelle sind. Das ist ja gerade der Vorteil, wenn du einen Bereich als Tabelle formatiert hast, dass sich die Tabelle automatisch erweitert wenn weitere Daten eingegeben werden.
Wenn du das so lässt wie in deinem Beispiel dann würde der Code die kopierten Daten ab Zeile 125 einfügen.
Werner

Anzeige
AW: Zeilen per Makro nach unten kopieren
09.04.2015 08:09:44
Klaus
Hi Felix,
im Prinzip so: 
Option Explicit
Sub CopyXMal()
Const ColCopy As Long = 4
Const ColFrom As Long = 1
Const ColTill As Long = 3
Const ColTo As Long = 7
Const RowStart As Long = 2
Dim RowEnd As Long
Dim RowEndTo As Long
Dim r As Range
With ActiveSheet
RowEnd = .Cells(.Rows.Count, ColCopy).End(xlUp).Row
For Each r In .Range(.Cells(RowStart, ColCopy), .Cells(RowEnd, ColCopy))
RowEndTo = .Cells(.Rows.Count, ColTo).End(xlUp).Row + 1
.Range(.Cells(r.Row, ColFrom), .Cells(r.Row, ColTill)).Copy
If r.Value > 0 Then
.Cells(RowEndTo, ColTo).Resize(r.Value, 1).PasteSpecial
Application.CutCopyMode = False
End If
Next r
End With
End Sub
Das funktioniert aber nur, wenn du die Bereiche nicht als seperate Tabellen deklarierst, wie du es in deiner Musterdatei getan hast.
Grüße,
Klaus M.vdT.

Anzeige
AW: Zeilen per Makro nach unten kopieren
09.04.2015 13:43:16
Felix
Langsam habe ich ein schlechtes Gewissen, dass mir hier immer so schnell geholfen wird, ich aber nichts außer eine "Tausend Dank!" zurückgeben kann.
Klappt beides hervorragend und hat mir mal wieder sehr viel Zeit gespart.

Danke für die Rückmeldung! owT.
09.04.2015 15:06:12
Klaus
.

AW: Zeilen per Makro nach unten kopieren
09.04.2015 17:53:40
Felix
Jetzt habe ich doch noch eine Anfängerfrage:
Wie muss ich das Makro (ich benutze derzeit das zweite: Sub CopyXMal()) ändern, damit nur die Zahlenformate und Zahlenwerte, nicht aber die anderen Zellformatierungen, wie z. B. die Zellfarbe, kopiert werden?

Anzeige
AW: Danke für Rückmeldung u. Antwort auf Frage
09.04.2015 20:40:38
Werner
Hallo Felix,
auch von mir noch ein Danke für die Rückmeldung. Und zu deiner Frage:
.Cells(RowEndTo, ColTo).Resize(r.Value, 1).PasteSpecial (xlPasteValues)
Gruß Werner

AW: Danke für Rückmeldung u. Antwort auf Frage
09.04.2015 21:12:42
Felix
Supercool! Jetzt macht meine Tabelle endlich, was sie soll. Vielen Dank für die wie immer sehr schnelle Hilfe.
Anzeige

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Per Makro zu einer Zelle springen
TomTom

Hi,
ich habe ein Formular , auf dem sitzt eine textbox. Duch irgend ein Vorgang wird eine bestimmte Zelle ermittelt, zum Beispiel "AD250". In dieser Textbox würde dann bei mir drin stehen "$AD$250"
Kann ich nun per Makro zu dieser Zellen springen, sprich, dass diese dann im Sichtbaren b...
20.01.2009 07:59:00
Thread-ID: 1041709
3 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Anzeige
Nach links oben springen - im Makro
miss18

Hallo,
ich hätte eine Frage und ich hoffe Ihr könnt mir weiterhelfen.
Mit Hilfe dieses Super-Forums (ins. mit Hilfe von Josef Ehrensberger) habe ich das folgende Makro auf meine Wünsche umgestellt und es funktioniert prima.
Jetzt würde ich gerne die Funktion einbauen wenn ich beim K...
03.03.2009 14:38:16
Thread-ID: 1055984
6 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
Anzeige
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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