Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
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
1540to1544
1540to1544
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In neue Datei einfügen erste leere Zeile

Forumthread: In neue Datei einfügen erste leere Zeile

In neue Datei einfügen erste leere Zeile
09.02.2017 14:12:00
RE
Hallo zusammen
Ich brauche einen VBA Code, bei dem ich einen ausgewählten Bereich der Datei A nach Datei B kopieren kann (Per Cmd Button).
Das kopieren klappt, allerdings komm ich mit dem "erste leere Zeile" suchen und dann unten anfügen nicht weiter. Ich möchte ja nicht, dass es das erste kopieren überschreibt. Ich hoffe es kann mir jemand weiterhelfen?
Hier mein aktueller Code, welcher soweit funktioniert. 
Sub copy()
Selection.copy
Windows("Zusammenfassung Sales.xlsm").Activate
Range("C4").PasteSpecial xlPasteValues
ActiveSheet.Paste
'kopieren mit Ctrl+Shift+C
End Sub

Danke für eure Unterstützung,
Gruss,RE
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In neue Datei einfügen erste leere Zeile
09.02.2017 14:22:20
harry
Hallo,
das Ende einer Liste kannst Du ausgehend von Zelle A1 folgendermaßen ermitteln:
ende = Sheets("Tabelle1").Cells(1, 1).End(xlDown).Row
dieser Code findet die letzte befüllte Zeile vor einer leeren Zelle in Spalte A,
wenn in Deiner Liste also leere Zellen vorkommen, funktioniert das so nicht!
Dann müsste man sich von unten an Deine Liste annähern, mit xlUp!
Grüße
harry
Anzeige
AW: In neue Datei einfügen erste leere Zeile
09.02.2017 14:58:34
RE
Hallo Harry
Danke für deine rasche Antwort. Geh ich richtig in der Annahme, dass mein "Range("C4") etc. weggelassen werden kann?
Wenn ich deinen Teil noch reinnehme, dann kommt die Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht".
Der zu kopierende Bereich müsste an erster Stelle in C4, nachher C5, C6 etc. eingefügt werden.
Irgendwas stimmt bei meinem Code nicht, ich habe aber noch keinen Durchblick...
Sub copy()
Selection.copy
Windows("Zusammenfassung Sales.xlsm").Activate
Range("C4").PasteSpecial xlPasteValues
ActiveSheet.Paste
Sheets("Sales").Cells(4, 3).End(xlDown).Row
'kopieren mit Ctrl+Shift+C
End Sub

Anzeige
AW: In neue Datei einfügen erste leere Zeile
09.02.2017 15:13:20
harry
Hallo,
abgesehen davon, dass das mit dem ganzen select und activate noch eleganter geht (aber so macht es eben der Recorder), so müsste es gehen:
Sub copy()
ende=Sheets("Sales").Cells(4, 3).End(xlDown).Row+1
Selection.copy
Windows("Zusammenfassung Sales.xlsm").Activate
Range("C" & ende).PasteSpecial xlPasteValues
ActiveSheet.Paste
End Sub

Anzeige
AW: In neue Datei einfügen erste leere Zeile
09.02.2017 15:22:41
RE
Hmm, jetzt kommt die Meldung "Index ausserhalb des gültigen Bereichs".
Das File wo die Daten reinkopiert werden heisst "Zusammenfassung Sales.xlsm". Die Mappe heisst "Sales"
Stimmt doch oder?
AW: In neue Datei einfügen erste leere Zeile
09.02.2017 15:57:46
harry
Hallo,
ok, Du startest das Script wahrscheinlich bei aktiver Quelldatei. Dort gibt es wahrscheinlich kein Blatt "Sales".
Dann müsste die Zeile mit dem ende=... nach unten gerutscht werden, nach Windows ... Activate.
Grüße
harry
Anzeige
AW: In neue Datei einfügen erste leere Zeile
09.02.2017 16:04:03
RE
Hallo Harry
Ich muss beide Dateien öffnen, damit das Kopieren funktioniert. Ins File, in das reinkopiert wird, heisst die Mappe "Sales" (Ursprünglich Tabelle1)
Nun kommt die Fehlermeldung, "Die Methode Range für das Objekt _Global ist fehlgeschlagen?
Ist VBA wirklich so komlpiziert? :-)
Anzeige
AW: In neue Datei einfügen erste leere Zeile
09.02.2017 16:14:20
harry
Also, einigermaßen sauber geht das so
Sub copy()
Workbooks("Quelle").Sheets("Tabelle1").Range("a1:h10").copy
ende = Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Cells(4, 3).End(xlDown).Row + 1
Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Range("C" & ende).PasteSpecial  _
xlPasteValues
Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Paste
End Sub
Dann ist egal welche Mappe gerade aktiv ist!
Grüße
harry
Anzeige
AW: In neue Datei einfügen erste leere Zeile
09.02.2017 16:24:49
RE
Jetzt habe ich die Meldung Anwendungs oder objektdefinierter Fehler.
Eigentlich will ich nur, dass ich von einer Datei, einen Bereich, egal welche Mappe kopieren kann(selection.copy) und diesen kopierten Bereich dann in der Datei "Zusammenfassung Sales.xlsm", in der Mappe "Sales" in die Spalte C in die nächste leere Zelle von unten reinkopieren kann...
Den Code oben habe ich nun angepasst
Sub copy()
Selection.copy
ende = Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Cells(4, 3).End(xlDown).Row + 1
Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Range("C" & ende).PasteSpecial _
xlPasteValues
Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Paste
End Sub
Tut mit leid wenn ich dich mit dem belästige, aber ich bin da noch zu wenig drin...
Anzeige
AW: In neue Datei einfügen erste leere Zeile
09.02.2017 16:38:24
harry
Hallo,
sorry, ich geb auf, bei mir hat der Code funktioniert (getestet)
good luck
AW: In neue Datei einfügen erste leere Zeile
09.02.2017 16:46:18
RE
Hmm schade, danke trotzdem
;

Forumthreads zu verwandten Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
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
Anzeige
erste leere Zelle einer Zeile finden.
Marcel

Hallo zusammen
Ich möchte den Wert der Aktiven Zelle (ohne diese zu verlassen) in die erste leere Zelle der Zeile schreiben.
Kennt jemand den Befehl dafür?
Wäre echt froh um Hilfe.
Danke schon im Voraus
Gruss Marcel
23.09.2009 14:23:15
Thread-ID: 1104940
3 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
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Anzeige
Leere Zeile einfügen
Tobson

Halli Hallo
Habe den folgenden VBA Code, bei Übereinstimmung der If Abfrage wird eine Tabelle mit Werten beschrieben, trifft die Übereinstimmung nicht zu, soll eine Zeile frei gelassen werden und die Schleife das nächste mal durchlaufen... . Ich suche ja immer die nächste frei Zeile in der...
14.10.2010 22:56:15
Thread-ID: 1182501
3 Beiträge
Anzeige
VBA - Formatierte Zeilen einfügen
Boris

Hallo
Ich möchte 3 formatierte Zeilen per VBA in die aktive Arbeitsmappe einfügen.
Dazu brauche ich ein VBA-Makro (um es mittels Tastenkombination aufzurufen).
Die Formatierung umfasst Schriftschnitt, Zeilenhöhe und Formeln.
Geht das prinzipiell mit VBA?
Vielen Dank!
Bo...
07.04.2011 15:54:10
Thread-ID: 1209494
6 Beiträge
leere zeile finden und dann erst einfügen
Hoppe

Hallo,
ich bin neu hier und hoffe Ihr könnt mir helfen.
Ich habe eine Tabelle1 und eine Tabelle2,
dort sollen nun sachen kopiert werden und in einer anderen eingefügt werden. Es funktioniert auch super nur leider überschreibt er mir alle alten einträge. Nun meine Frage. Bekommt man...
24.06.2011 13:55:45
Thread-ID: 1219530
2 Beiträge
VBA: leere Zeilen löschen
Fritz_W

Hallo Forumsbesucher,
ich bitte um Eure Hilfe:
Mit welchem Code lassen sich alle leere Zeilen der aktiven Spalte (bis zur letzten Zeile mit Inhalt) löschen.
Beispiel: Befindet sich der Cursor in Zelle C6 und ist in Spalte C die letzte Zelle mit Inhalt die Zelle C957 sollten alle lee...
19.10.2011 09:27:12
Thread-ID: 1234458
3 Beiträge
Sverweis Zeile in nächste leere Zeile kopieren
kstorz

Hallo liebe Profis!
Ich habe mal wieder ein Problem bei dem ich Euere Hilfe bräuchte.
Es gibt zwar eine Unmenge an Antworten dazu, jedoch sind die recht verwirrend, vielleicht deshalb, weil es nicht mein Problem betrifft!?
Ich habe eine Tabelle (Personen) in der diverse Personen (mi...
31.10.2011 19:13:22
Thread-ID: 1236086
21 Beiträge
VBA in leere Zeile einfügen
Stefan

Tach erstmal
Ich habe ein code welcher mir Dir Zeilen aus einer Tabelle in die unterste leere Zeile eines weiteren Tabellenblattes schreibt. (gefällt soweit ganz gut)
Kann man den Code abändern das er die nächst leere Zeile verwendet ?
d.h.
-Doppelklick
-Zeile Kopieren
...
07.04.2012 14:05:38
Thread-ID: 1258271
17 Beiträge
mit VBA einen Zeilenumbruch einfügen
WalterK

Hallo,
Per Schaltfläche möchte ich ein Makro starten, das in jeder beschriebenen Zelle am Ende des Zellinhaltes zusätzlich noch einen Zeilenumbruch einfügt, außer es ist am Ende des Zellinhaltes bereits einer vorhanden.
Es soll im Bereich D5:D&bis zur letzten belegten Zelle funktio...
26.06.2012 10:42:03
Thread-ID: 1268821
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

In neue Datei einfügen: Erste leere Zeile finden

Schritt-für-Schritt-Anleitung

  1. Öffne die beiden Excel-Dateien: Stelle sicher, dass sowohl die Quelldatei als auch die Zieldatei geöffnet sind.

  2. Eingabe des VBA-Codes: Gehe in den VBA-Editor (Alt + F11) und erstelle ein neues Modul. Kopiere den folgenden Code in das Modul:

    Sub copy()
   Dim ende As Long
   Selection.Copy
   ' Finde die erste leere Zelle in Spalte C der Zieldatei
   ende = Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Cells(Rows.Count, 3).End(xlUp).Row + 1
   ' Füge die kopierten Werte in die erste leere Zeile ein
   Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Cells(ende, 3).PasteSpecial xlPasteValues
End Sub

  3. Anpassung des Codes: Achte darauf, dass die Namen der Arbeitsmappen und Arbeitsblätter korrekt sind. In diesem Beispiel wird die Datei „Zusammenfassung Sales.xlsm“ und das Blatt „Sales“ verwendet.

  4. Ausführen des Codes: Wähle den gewünschten Bereich in der Quelldatei aus und führe das Makro aus (F5 oder über die Schaltfläche im Menü).

Häufige Fehler und Lösungen

  • Fehler: "Index außerhalb des gültigen Bereichs"
    Ursache: Du versuchst, auf ein Blatt zuzugreifen, das nicht existiert oder nicht aktiv ist.
    Lösung: Stelle sicher, dass die angegebenen Blätter und Arbeitsmappen in deinem Code korrekt sind.

  • Fehler: "Die Methode Range für das Objekt _Global ist fehlgeschlagen"
    Ursache: Möglicherweise hast du einen Bezug zu einer nicht existierenden Zelle oder einem nicht geöffneten Arbeitsblatt.
    Lösung: Überprüfe die Namen der Arbeitsblätter und stelle sicher, dass sie existieren.

  • Fehler: "Anwendungs- oder objektdefinierter Fehler"
    Ursache: Oft tritt dieser Fehler auf, wenn auf eine Zelle oder einen Bereich zugegriffen wird, der nicht existiert.
    Lösung: Überprüfe, ob die Zelle, auf die verwiesen wird, tatsächlich leer ist oder ob der Bereich korrekt definiert ist.

Alternative Methoden

  • Verwendung von Formeln: Wenn du nicht mit VBA arbeiten möchtest, kannst du auch eine Formel verwenden, um die erste leere Zeile zu finden. Zum Beispiel:

    =VERGLEICH(„*“;C:C;0)

  • Manuelles Kopieren und Einfügen: Du kannst den gewünschten Bereich manuell kopieren und dann in die nächste leere Zeile einfügen, indem du die Leertaste in Spalte C drückst, bis du die leere Zeile findest.

Praktische Beispiele

  1. Kopieren von Daten aus einer Liste: Wenn du einen Bereich von „A1:H10“ in eine neue Datei kopieren möchtest:

    Sub copy()
   Selection.Copy
   ende = Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Cells(Rows.Count, 3).End(xlUp).Row + 1
   Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Range("C" & ende).PasteSpecial xlPasteValues
End Sub

  2. Erste leere Zeile in einer anderen Spalte finden: Wenn du die erste leere Zelle in der Spalte D suchen möchtest:

    ende = Workbooks("Zusammenfassung Sales.xlsm").Sheets("Sales").Cells(Rows.Count, 4).End(xlUp).Row + 1

Tipps für Profis

  • Vermeide Select und Activate: Statt Select oder Activate zu nutzen, arbeite direkt mit Objekten. Dies macht deinen Code effizienter und weniger fehleranfällig.

  • Fehlerbehandlung einbauen: Füge eine Fehlerbehandlung in deinen Code ein, um mögliche Probleme abzufangen:

    On Error Resume Next
' Dein Code
On Error GoTo 0

  • Makros dokumentieren: Schreibe Kommentare in deinen Code, um die Funktionsweise für zukünftige Referenzen klar zu machen.

FAQ: Häufige Fragen

1. Wie finde ich die erste leere Zelle in einer Zeile?
Du kannst die Methode End(xlRight) verwenden, um von links nach rechts zu suchen und die erste leere Zelle zu finden.

2. Kann ich auch mehrere Zellen gleichzeitig kopieren?
Ja, du kannst auch einen größeren Bereich auswählen und diesen mithilfe von Selection.Copy kopieren. Achte darauf, dass du den Zielbereich entsprechend anpasst.

3. Was ist der Unterschied zwischen Paste und PasteSpecial?
Paste fügt alles ein (Formatierungen, Formeln, Werte), während PasteSpecial dir ermöglicht, spezifische Aspekte, wie nur die Werte, 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