Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.10.2025 08:12:13
VBA - Von Word Doc in Excel Sheet schreiben
05.10.2025 23:18:01
Summewenns aber mit VBA
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
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
1788to1792
1788to1792
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopierte Zeilen unter die letzte Zeile

Forumthread: Kopierte Zeilen unter die letzte Zeile

Kopierte Zeilen unter die letzte Zeile
30.10.2020 15:56:29
Roger
Guten Nachmittag
Ich habe folgenden Code der alle Zeilen der Tabelle1 Kopieren sollte, welche in der Spalte G eine 1 stehen haben. Diese sollen dann in der Tabelle2 untereinander, ohne Leerzeilen eingefügt werden. Das funktioniert aber nicht recht. Kann mir jemand den Fehler zeigen?
Danke.
Freundliche Grüsse,
Roger
Sub Zeilen_kopieren()
Dim Zeile As Long
With Sheets("Tabelle1")
For Zeile = 1 To .Range("G65536").End(xlUp).Row
If .Cells(Zeile, 7) > 0 Then
.Cells(Zeile, 7).EntireRow.Copy
If Sheets("Tabelle2").Range("A1") = "" Then
Sheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteAll
Else
Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:= _
xlPasteAll
End If
End If
Next 'Zeile
End With
End Sub

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopierte Zeilen unter die letzte Zeile
30.10.2020 16:00:51
Werner
Hallo,
würde ich über den Autofilter machen.
Dazu sollten aber mehr Infos vorliegen.
-wo beginnen deine Daten (Zeile / Spalte)
-lückenloser Bereich?
-Überschriften ja/nein
Am besten kurz eine Beispielmappe machen, die im Aufbau deinem Original entspricht und dann hier hochladen.
Gruß Werner
Anzeige
AW: Kopierte Zeilen unter die letzte Zeile
30.10.2020 16:07:57
ChrisL
Hi
Mit Autofilter geht es definitiv schneller.
Trotzdem hier dein Makro angepasst. Ich vermute das Problem könnte sein, dass Spalte A nicht zuverlässig einen Wert enthält. Darum die letzte Zeile anhand von Spalte G ermittelt.
Sub Zeilen_kopieren()
Dim Zeile As Long
Dim letzteZeile As Long
With Sheets("Tabelle1")
For Zeile = 1 To .Range("G65536").End(xlUp).Row
If .Cells(Zeile, 7) > 0 Then
.Cells(Zeile, 7).EntireRow.Copy
letzteZeile = Sheets("Tabelle2").Range("G65536").End(xlUp).Offset(1, 0).Row
If Sheets("Tabelle2").Range("G1") = "" Then letzteZeile = 1
Worksheets("Tabelle2").Rows(letzteZeile).PasteSpecial Paste:=xlPasteAll
End If
Next Zeile
End With
End Sub
cu
Chris
Anzeige
AW: Kopierte Zeilen unter die letzte Zeile
30.10.2020 16:21:56
Roger
Hallo,
Danke für eure Antworten. Die Mappe habe ich hochgeladen. Der Code von Chris funktioniert gut. Ich habe aber vergessen, dass Tabelle1 laufend erweitert wird. Das heisst, jedes mal wenn ich den Code laufen lasse, wird nochmals alles unter die letzte Zeile angehängt. Ist es möglich Tabelle2 jedes mal "neu" oder leer zu starten?
Da ich 16 Spalten habe die auf Inhalte überprüft werden sollen um dann die Zeilen zu kopieren (jeweils auf eine neue Tabelle,, weiss ich nicht ob ein Spezialfilter funktioniert?
Freundliche Grüsse,
Roger
https://www.herber.de/bbs/user/141190.xlsm
Anzeige
AW: Kopierte Zeilen unter die letzte Zeile
30.10.2020 16:47:38
ChrisL
Hi
Normaler Autofilter, nicht Spezialfilter. So im Grundsatz mit dem Makrorekorder
- alter Tabelleninhalt löschen
- Autofilter setzen
- Copy/Paste
Was ich dir zudem als schnelle und Makro-freie Alternative empfehlen könnte, wäre Power-Query.
Um die Tabelle2 erst zu leeren, kannst du folgende Zeile einfügen:
Worksheets("Tabelle2").Cells.Delete
Die Beispieldatei passt übrigens nicht zum Thema.
cu
Chris
Anzeige
AW: Kopierte Zeilen unter die letzte Zeile
30.10.2020 17:02:46
Roger
Hallo
Ja, ich hatte die Mappe nicht abgespeichert :-)
Nun ist sie richtig.
Das funktioniert nun soweit Tip, Top. Danke
Einen schönen Abend,
Roger
https://www.herber.de/bbs/user/141191.xlsm
AW: Kopierte Zeilen unter die letzte Zeile
31.10.2020 06:02:20
Werner
Hallo,
so: 
Option Explicit
Sub Zeilen_kopieren()
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
If WorksheetFunction.CountIf(.Columns("G"), 1) > 0 Then
Worksheets("Tabelle2").Cells.ClearContents
.Range(.Cells(1, "B"), .Cells(1, "V")).AutoFilter field:=6, Criteria1:=1
With .AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Copy
End With
Worksheets("Tabelle2").Range("B1").PasteSpecial Paste:=xlPasteValues
.Range("B1").AutoFilter
End If
End With
Application.CutCopyMode = False
End Sub
Gruß Werner
Anzeige
;

Forumthreads zu verwandten Themen

Letzte Zeile
Walter

Hallo Excelfreunde,
Meine Kenntnisse in VBA sind gleich Null. Versuche es gerade zu lernen.
Was muß eingegeben werden damit nur bis zur letzen Zeile gedruckt wird?
Habe diesen Druckbereich. Es können 5 bis 90 Zeilen sein.
Sub BereichDrucken() Range("AE1:AP103").PrintOut Copies...
16.08.2008 09:41:32
Thread-ID: 1002319
7 Beiträge
Textfile letzte Zeile
Petra

Guten Morgen allerseits
mein Beitrag von gestern ist noch offen
https://www.herber.de/forum/messages/1003499.html
ich möchte meine Frage jetzt mal anders formulieren. Ich speichere ein Excelsheet als Textdatei ab. Wie ich auch aus mehreren Beiträgen entnehmen konnte, fügt Excel bei...
22.08.2008 10:08:12
Thread-ID: 1003757
9 Beiträge
Anzeige
Letzte Zeile in neues Blatt kopieren
Matthias

Hallo zusammen,
ich habe zwar in der Suche einiges über die LETZTE ZEILE gefunden, aber mein Problem konnte ich dennoch nicht richtig lösen.
Hier, was ich habe:
- In einer Excel-Datei mehrere Tabellen, die Anzahl kann sich ändern (z.B. Tabelle1, Tabelle2, Tabelle3...Tabelle 30)
...
11.09.2008 07:20:00
Thread-ID: 1008963
7 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
Letzte Zeile kopieren
J.

Hallo zusammen!
Ich benötige ein Script, dass der Buttom die letzte beschriebene Zeile in einem Arbeitsblatt in die freie Zeile darunter kopiert. Wie geht sowas?
VG
J.H.
13.11.2008 10:14:00
Thread-ID: 1024082
4 Beiträge
Anzeige
letzte Zeile in Liste löschen
Uwe

Hallo an Alle,
in Tabelle3 hab ich einen Button, der mir in Tabelle1 in einer Liste den letzten Eintrag löschen soll.
Also die ganze Zeile ohne die Formatierungen zu verlieren.
Die Liste fängt in Tabelle1 ab Spalte B an.
Bei der Recherche hab ich da leider nix passendes gefunden...
23.11.2008 19:04:01
Thread-ID: 1027128
4 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Anzeige
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Letzte Zeile bestimmen
Holger

Hallo zusammen,
wie kann ich ohne VBA die letzte Zeile in einer Formel bestimmen. Den Wert dieser Zelle möchte ich dann weiter verwenden.
Gruss
Holger
04.02.2009 13:12:38
Thread-ID: 1047018
8 Beiträge
letzte Zeile mit Daten
Claudia

Hallo Forum,
wie kann ich per VBA den Wert der letzten Zeile einer bestimmten Spalte (z.B. Spalte B) ausgeben lassen, bei dem in der Spalte links davon das aktuelle Datum drin steht? Kennt wer den Befehl dazu?
11.02.2009 18:37:00
Thread-ID: 1049731
10 Beiträge
letzte Zeile mit Daten
Claudia

Hallo Forum,
wie kann ich per VBA den Wert der letzten Zeile einer bestimmten Spalte (z.B. Spalte B) ausgeben lassen, bei dem in der Spalte links davon das aktuelle Datum drin steht? Kennt wer den Befehl dazu?
11.02.2009 18:37:00
Thread-ID: 1049732
2 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