Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen kopieren und ans Ende einfügen

Forumthread: Zellen kopieren und ans Ende einfügen

Zellen kopieren und ans Ende einfügen
31.03.2009 08:52:44
Thomas
Hallo guten Morgen,
ich steh mal wieder auf dem Schlauch und bitte um Hilfe.
In einem Tabellenblatt "Eingang" stehen immer in Zeile 2 (Zelle C2 bis R2) aktuelle Infos die ich in das Tabellenblatt "Speichern" einfügen möchte aber immer an das Ende der dortigen Tabelle. Dort aber auch ebenfalls in die Zellen C bis R. Kann mir bitte jemand mit einem kleinen Makro helfen?
Danke und Gruß
Thomas
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Kleines Makro
31.03.2009 09:11:51
Backowe
Hallo Thomas,
VBA-Code:
Sub ZeilenKopieren()
Dim LZeile&
LZeile = Sheets("Speichern").Cells(Rows.Count, "C").End(xlUp).Row + 1
Sheets("Eingang").Range("C2:R2").Copy _
  Destination:=Sheets("Speichern").Range("C" & LZeile & ":R" & LZeile)
End Sub
Gruß Jürgen
AW: Danke Jürgen funzt. o.T.
Thomas

Anzeige
AW: Danke Jürgen funzt. o.T.
31.03.2009 09:18:49
Thomas
;

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
Anzeige
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo, für euch ist das sicher einfach, aber ich bekomme folgenden Schritt nicht hin. Ich habe über Makro aufnehmen eine einfache Funktion. Es sollen 4 aufeinanderfolgende Werte in einer Zeile addiert werden. Nun soll sich aber in dem Makro diese Formel selbstständig über alle Zeilen kopieren,...
14.10.2009 17:23:17
Thread-ID: 1109648
5 Beiträge
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo Leute, hab da mal eine Verständnisfrage:
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 23)
Was bedeutet dieser Befehl im Einzelnen?
Er bewirkt doch, dass die Formeln in der Spalte wo der Befehl gesetzt wird, solange kopiert werden, bis in Spalte 1 keine Wert...
02.02.2010 12:32:34
Thread-ID: 1135057
3 Beiträge
Formel bis Ende
gerhard

Hallo bitte um Makro Hilfe,
wie kann ich ab der aktiven Zellposition die Spalte bis zum Ende der links davon
liegenden Spalte mit einer Formel auffüllen?
Ich möchte die Berechnung starten ab der aktiven Zellpositon z.B C10
In der links liegende B Spallte sind Werte bis z.B B2000...
24.03.2011 14:24:07
Thread-ID: 1207409
4 Beiträge
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 Beiträge
Spalten bis zum Schluss ausblenden
Matthias

Hallo miteinander,
wie ich per VBA einzelne oder auch mehrere Spalten ausblenden kann ist für mich klar.
Ich möchte jedoch, dass sämtliche Spalten bspw. ab Spalte AC aufwärts ausgeblendet werden und damit im Normalfall auch nicht mehr erreichbar sind. Wie bekommt man das hin?
Grupp...
20.08.2012 10:25:45
Thread-ID: 1275682
3 Beiträge
Zellen löschen bis ende
Kurt

Guten Morgen,
hatt gerade im Forum gestöbert, leider nicht das Richtige
gefunden.
Ich möchte die 1. Leerzelle in der Spalte A selektieren und von da aus alle
Zeilen bis Ende (65000) löschen.
mfg Kurt
29.11.2012 10:19:29
Thread-ID: 1288543
3 Beiträge
Tabelle in VBA erweitern (neue Zeile am Ende)
Rainer

Hallo,
ich möchte eine Tabelle in mehreren Schritten so füllen, dass in jedem Schritt jeweils hinter der letzten bereits gefüllten Zeile weitergemacht wird. Solange keine Zeilen gelöscht werden, klappt das mit UsedRange ganz gut, aber sobald Zeilen gelöscht werden liefert UsedRange immer no...
16.01.2014 14:41:00
Thread-ID: 1345480
2 Beiträge
Spalten nach kopieren ausblenden!
Snewi

Hallo,
ich erstelle von einem vorhanden Excel Blatt eine kopie und legen diesen unter einem bestimmt Namen ab!
Sheets("Bericht").Copy Cells.Copy Cells(1, 1).PasteSpecial xlPasteValues Range("A1").Select Application.CutCopyMode = False ActiveWorkbook.SaveAs "Pfad_" _ & (Sheets("Beri...
28.04.2014 13:52:44
Thread-ID: 1358878
8 Beiträge
Rahmen und Formel bis Ende der Tabelle
Alex105

Hallo Zusammen,
ich habe eine Tabelle, die ich mithilfe von einem Makro formatieren lasse. Jetzt benötige ich für 2 Punkte innerhalb dieser Tabelle mal bitte Eure Hilfe.
1. Punkt: In E2 fängt eine Wenn-Formel an, die bis ans Ende der Tabelle laufen soll (Tabellenlänge ist dynamisch)
...
12.05.2014 10:31:47
Thread-ID: 1361048
8 Beiträge
Formel kopieren bis zur ersten leeren Zeile
Andreas M.

Hallo Forum,wie kann ich es erreichen, dass Formeln nur dort eingefügt werden, wo links die Zelle gefüllt ist. Wenn ich Formeln immer bis z.B. L2000 kopiere ist mir das zu unsicher. Hintergrund: SQL-Abfrage mit verschiedenem Datenvolumen. Das Ergebnis der SQL wird kopiert und in eine mit Formel...
16.07.2002 23:44:51
Thread-ID: 137240
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zellen kopieren und ans Ende einfügen

Schritt-für-Schritt-Anleitung

  1. Öffne dein Excel-Dokument und gehe zum Tabellenblatt "Eingang".
  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  3. Füge ein neues Modul hinzu:
    • Klicke auf Einfügen > Modul.
  4. Kopiere den folgenden VBA-Code in das Modul:
Sub ZeilenKopieren()
    Dim LZeile As Long
    LZeile = Sheets("Speichern").Cells(Rows.Count, "C").End(xlUp).Row + 1
    Sheets("Eingang").Range("C2:R2").Copy _
        Destination:=Sheets("Speichern").Range("C" & LZeile & ":R" & LZeile)
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro aus:
    • Drücke ALT + F8, wähle ZeilenKopieren und klicke auf Ausführen.
  3. Deine Daten von "Eingang" werden nun ans Ende des Tabellenblattes "Speichern" eingefügt.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004: Anwendung oder Objekt definiert"

    • Lösung: Stelle sicher, dass die Tabellennamen "Eingang" und "Speichern" korrekt geschrieben sind und existieren.

  • Fehler: Die Zellen sind nicht kopierbar

    • Lösung: Überprüfe, ob die Zellen C2 bis R2 im "Eingang"-Tabellenblatt Daten enthalten.

Alternative Methoden

  • Excel-Kopieren bis Ende:

    • Anstatt VBA zu verwenden, kannst du auch den Bereich C2:R2 einfach manuell kopieren und in das "Speichern"-Tabellenblatt an die gewünschte Stelle einfügen.

  • Formel bis ans Ende der Tabelle kopieren:

    • Du kannst eine Formel in Zelle C3 des "Speichern"-Blattes eingeben, die auf die Zellen im "Eingang"-Blatt verweist und sie dann bis ans Ende der Tabelle ziehen.

Praktische Beispiele

  • Beispiel 1: Wenn du die Werte in Zelle C2 bis R2 hast, kannst du den VBA-Code verwenden, um diese Werte automatisch an das Ende des "Speichern"-Blattes zu übertragen.

  • Beispiel 2: Um einen Excel-Text am Ende der Zelle hinzuzufügen, könntest du in einer neuen Zelle die Formel =C2 & " - neuer Text" verwenden und diese dann bis ans Ende der Spalte ziehen.

Tipps für Profis

  • Makros automatisieren: Du kannst das Makro so einstellen, dass es bei bestimmten Ereignissen, wie dem Schließen der Datei oder dem Ändern einer Zelle, automatisch ausgeführt wird.

  • Excel VBA neue Zeile am Ende einfügen: Nutze den Befehl Rows(LZeile).Insert im VBA-Code, um eine neue Zeile zu erstellen, bevor du die Daten einfügst.

FAQ: Häufige Fragen

1. Kann ich mehrere Zeilen gleichzeitig kopieren?
Ja, ändere den Bereich in Sheets("Eingang").Range("C2:R10").Copy im VBA-Code, um mehrere Zeilen zu kopieren.

2. Wie kann ich die Formeln in die neue Tabelle übernehmen?
Verwende anstelle von .Copy die PasteSpecial-Methode mit der Option xlPasteFormulas, um nur die Formeln zu kopieren.

3. Was mache ich, wenn ich die Daten in einer anderen Reihenfolge einfügen möchte?
Du kannst die Zielzellen im VBA-Code anpassen, um die Daten in einer anderen Reihenfolge einzufügen.

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