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

letzte Zeile in erste freie Zeile

Forumthread: letzte Zeile in erste freie Zeile

letzte Zeile in erste freie Zeile
Michel
Hallo zusammen,
wie kann ich die letzte ausgefüllte Zeile, aber nur den Bereich der Zellen G:Q der Tabelle1 kopieren und in die erste freie (nicht ausgefüllte) Zeile des Zellenbereichs B:L der Tabelle 2 einfügen?
Ich hoffe, dass ich mich für mein Anliegen klar ausgedrückt habe.
Ich wäre sehr dankbar für eine VBA-Lösung.
Vielen Dank für Eure Hilfe.
Michel
Anzeige
AW: letzte Zeile in erste freie Zeile
15.05.2011 11:51:08
jowe
Hallo Michel,
so vllt.? 
Sub Teil_Bereich_kopieren()
Sheets(1).Range(Cells(UsedRange.SpecialCells(xlCellTypeLastCell).Row, 7), _
Cells(UsedRange.SpecialCells(xlCellTypeLastCell).Row, 17)).Copy _
Destination:=Sheets(2).Cells(Sheets(2).Cells(1, 2).End(xlDown).Row + 1, 2)
End Sub

Gruß
Jochen
Anzeige
AW: letzte Zeile in erste freie Zeile
15.05.2011 11:51:08
jowe
Hallo Michel,
so vllt.? 
Sub Teil_Bereich_kopieren()
Sheets(1).Range(Cells(UsedRange.SpecialCells(xlCellTypeLastCell).Row, 7), _
Cells(UsedRange.SpecialCells(xlCellTypeLastCell).Row, 17)).Copy _
Destination:=Sheets(2).Cells(Sheets(2).Cells(1, 2).End(xlDown).Row + 1, 2)
End Sub

Gruß
Jochen
Anzeige
AW: letzte Zeile in erste freie Zeile
15.05.2011 12:56:48
Michel
Hallo Jochen,
besten Dank für Deine schnelle Antwort, ich bekomme jedoch diese Fehlermeldung:
Laufzeitfehler 1004
Anwendung- oder Objektdefinierter Fehler
Was mache ich falsch?
Gruss
Michel
AW: kannst Du eine Datei hochladen?
15.05.2011 13:00:01
jowe
AW: Spinnt mein Notebook oder was soll das?
15.05.2011 13:01:30
jowe
Anzeige
AW: kannst Du eine Datei hochladen?
15.05.2011 13:00:06
jowe
AW: kannst Du eine Datei hochladen?
15.05.2011 13:00:06
jowe
AW: kannst Du eine Datei hochladen?
15.05.2011 13:00:06
jowe
Anzeige
AW: kannst Du eine Datei hochladen?
15.05.2011 13:00:06
jowe
AW: kannst Du eine Datei hochladen?
15.05.2011 13:00:07
jowe
AW: kannst Du eine Datei hochladen?
15.05.2011 13:50:52
Michel
Hallo Jochen,
kann leider die extrem grosse Datei nicht hochladen.
Habe nur die Tabellenamen wie folgt geändert:
Sub Teil_Bereich_kopieren()
Sheets("Alle Bestellungen").Range(Cells(UsedRange.SpecialCells(xlCellTypeLastCell).Row, 7),  _
_
Cells(UsedRange.SpecialCells(xlCellTypeLastCell).Row, 17)).Copy _
Destination:=Sheets("Rep Katalog").Cells(Sheets("Rep Katalog").Cells(1, 2).End(xlDown).Row + _
1, 2)
End Sub
Bennenungen stimmen überein!
Danke für Deine Hilfe
Gruss
Michel
Anzeige
Referenzierungsprobleme
15.05.2011 13:34:15
Erich
Hi Jochen und Michel,
bei "Sheets(1).Range(Cells(UsedRange." soll das Range in Sheets(1) liegen.
Wo liegen aber Cells und UsedRange? Im (zufällig) gerade aktiven Blatt
bzw. dem Blatt, zu dem der Code gehört. Das muss nicht Sheets(1) sein. Dann gibt es Waffelbruch.
So sollte es gehen: 

Sub Teil_Bereich_kopieren2()
With Sheets(1)
.Range(.Cells(.UsedRange.SpecialCells(xlCellTypeLastCell).Row, 7), _
.Cells(.UsedRange.SpecialCells(xlCellTypeLastCell).Row, 17)).Copy _
Destination:=Sheets(2).Cells(Sheets(2).Cells(1, 2).End(xlDown).Row + 1, 2)
End With
End Sub
Sub Teil_Bereich_kopieren()
Sheets(1).Range(Sheets(1).Cells(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row, 7), _
Sheets(1).Cells(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row, 17)).Copy _
Destination:=Sheets(2).Cells(Sheets(2).Cells(1, 2).End(xlDown).Row + 1, 2)
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
noch ne Bemerkung
15.05.2011 13:38:23
Erich
Hi,
statt
Destination:=Sheets(2).Cells(Sheets(2).Cells(1, 2).End(xlDown).Row + 1, 2)
sollte auch gehen
Destination:=Sheets(2).Cells(1, 2).End(xlDown).Offset(1)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: noch ne Bemerkung
15.05.2011 14:29:00
Michel
Hallo Erich,
habe Deinen Code für meine Bedürfnisse unbenannt: 
Sub Teil_Bereich_kopieren2()
With Sheets("Alle Bestellungen")
.Range(.Cells(.UsedRange.SpecialCells(xlCellTypeLastCell).Row, 7), _
.Cells(.UsedRange.SpecialCells(xlCellTypeLastCell).Row, 17)).Copy _
Destination:=Sheets("Rep Katalog").Cells(1, 2).End(xlDown).Offset(1)
End With
End Sub

leider bekomme ich den gleichen Fehler. Was könnte falsch sein?
Gruss
Michel
Anzeige
Immer noch Laufzeitfehler 1004
15.05.2011 16:04:14
Michel
Hallo Erich,
Immer noch Laufzeitfehler 1004 usw.
habe wirklich alles versucht leider ohne Erfolg, was gibt es noch für Möglichkeiten?
Meine VBA Kenntnisse sind sehr sehr mager!
Wäre sehr froh für eine Lösung!!
Gruss
Michel
AW: Immer noch Laufzeitfehler 1004
15.05.2011 16:48:24
Tino
Hallo,
baue einfach mal eine Tabelle auf die nur das nötigste enthält das zur Lösung wichtig ist,
diese sollte dennoch dem original gleich sein und lade diese mal hoch.
Gruß Tino
Anzeige
AW: Immer noch Laufzeitfehler 1004
15.05.2011 16:54:13
Matthias
Hallo
Das kann ja niemand testen ...
Warum lädst Du nicht eine abgespeckte Variante Deiner Datei hoch
Dann kann man gezielt nach dem Fehler suchen
Die Brechstange ist für solche Fälle
On Error Resume Next
in der Zeile unmittelbar unter der Sub()
Das unterdrückt aber alle auflaufenden Fehler und ist deshalb ja auch nicht immer sinnvoll
also besser eine abgespeckte Kopie hochladen und man schaut wo der Fehler liegt.
Userbild
Anzeige
wohl gefunden
15.05.2011 18:23:35
Erich
Hi Michel,
da gibt es gleich mehrere Probleme:
Der UsedRange in "Alle Bestellungen" geht bis Zeile 3683. Also würde dein Code den Bereich G3683:Q3683 kopieren.
Die Spalte B in "Rep Katalog" ist leer. Damit ist
Sheets("Rep Katalog").Cells(1, 2).End(xlDown) die Zelle B1048576. Darunter geht dann natürlich nichts mehr,
das Offset(1) bringt den Fehler.
An der Mappe meine ich erkennen zu können, dass du gar nicht in "Rep Katalog" in einen Bereich ab Spalte B,
sondern erst ab Spalte G kopieren willst.
So sollte es funzen: 

Sub Teil_Bereich_kopieren3()
Dim wksBest As Worksheet
Set wksBest = Sheets("Alle Bestellungen")
With Sheets("Rep Katalog")
wksBest.Cells(wksBest.Cells(wksBest.Rows.Count, 7). _
End(xlUp).Row, 7).Resize(, 11).Copy _
Destination:=.Cells(.Rows.Count, 7).End(xlUp).Offset(1)
End With
End Sub
Ohne Beispielmappe wäre das nie und nmimmer erkennbar gewesen...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
nur Werte übertragen
16.05.2011 14:01:08
Erich
Hi Michel,
so werden nur Werte übertragen: 

Sub Teil_Bereich_kopierenWerte()
Dim wksBest As Worksheet
Set wksBest = Sheets("Alle Bestellungen")
With Sheets("Rep Katalog")
.Cells(.Rows.Count, 7).End(xlUp).Offset(1).Resize(, 11) = _
wksBest.Cells(wksBest.Cells(wksBest.Rows.Count, 7). _
End(xlUp).Row, 7).Resize(, 11).Value
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
nur Werte übertragen - Beispielmappe
16.05.2011 19:03:27
Erich
Hi Michel,
wenn du Zweifel hast: ;-)
https://www.herber.de/bbs/user/74865.xlsm
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: nur Werte übertragen - Beispielmappe
16.05.2011 22:05:26
Michel
Hallo Erich,
Besten Dank es funz ! nochmals sorry
Gruss
Michel
Schön, danke für deine Rückmeldung, ...
17.05.2011 10:12:06
Erich
Hi Michel,
... mich würde aber schon noch interessieren, warum es bei dir zunächst nicht gefunzt hat.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Schön, danke für deine Rückmeldung, ...
17.05.2011 14:04:38
Michel
Hi Erich,
mein Wunsch war, dass die kopierte Zeile ab Spalte "B":" L" anstatt "G":"Q", eingefügt sein müsste, dass könnte ich selber ändern (hat aber Zeit gebraucht) und in Bezug auf "nur Werte einfügen" hatte ich vergessen Dir zu schreiben, dass in der kopierte Zeile Formeln vorhanden waren, es gab Fehlermeldung.
Nochmals vielen Dank für Deine super Hilfe und sorry für das "Vergessen".
Gruss
Michel
Anzeige
Danke, alles klar! (owT) :-)
17.05.2011 16:31:57
Erich
Testhilfen
15.05.2011 18:35:14
Erich
Hi Michel,
bei derartigen Problemen helfen manchmal ein paar MsgBoxen mit Infos über verwendete Daten.
Probier doch mal: 

Sub Testen()
With Sheets("Alle Bestellungen")
MsgBox .UsedRange.SpecialCells(xlCellTypeLastCell).Row
MsgBox .Range(.Cells(.UsedRange.SpecialCells(xlCellTypeLastCell).Row, 7), _
.Cells(.UsedRange.SpecialCells(xlCellTypeLastCell).Row, 17)).Address
End With
MsgBox Sheets("Rep Katalog").Cells(1, 2).End(xlDown).Row
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Testhilfen
15.05.2011 19:08:39
Michel
Hallo Erich
Super! Es hat geklappt. Das ist phänomenal. Ganz herzlichen Dank für Deine grossartige Unterstützung. Gratulation!!
Ich bedanke mich für Deine Hilsbereitschaft.
Schönen Abend und einen guten Wochenstart wünsche ich Dir.
Gruss
Michel.
;

Forumthreads zu verwandten Themen

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
Erste freie Zeile...
Gegga

Hallo an alle...
Wer kann mir folgendes ins VBA übersetzen?
SucheA
Suche erste freie Zeile in Sheet LIEF Spalte 6
Wenn dieser Wert > 71 verwende gefundenen Wert
Wenn der Wert <71 dann Suche erste freie Zeile ab 118
Wenn der Wert <146 dann Suche erste freie Zeile...
13.10.2010 13:50:17
Thread-ID: 1182244
7 Beiträge
erste freie Zeile suchen aber nur bis Zeile 40
Reinhardt

Hallo,
ich möchte mit u.a.Code ein "PASTE" in die erste freie Zeile in Spalte G durchführen.
Jedoch soll nur der Bereich bis Zeile 40 berücksichtigt werden.
Wie schreibt man so etwas?
Gruß aus Lübeck
Reinhardt.
Sub Schritt02() 'Eintragen zur Vorbereitung für ArchivB Shee...
23.10.2010 12:13:40
Thread-ID: 1183617
7 Beiträge
nächste freie Zeile
Peter

Hallo an alle,
ich habe eine ständig größer werdende Datei, mit z.Zt. 200 Zeilen.
Wenn ich z.B. in der Zeile 15 etwas ändere muß ich immer wieder runterscrollen
um in nächste freile Zeile zu kommen. Je mehr Zeilen es werden um so mehr
scrolle ich da immer wieder runter in die n...
17.02.2011 17:48:42
Thread-ID: 1201539
3 Beiträge
1. freie Zeile trotz Autofilter finden
Dietmar

Hallo zusammen,
mit folgendem (erkennbar umständlichem) Code übertrage ich Daten in eine Endlos-Tabelle zwecks durchzuführender Auswertungen.
Die Daten aus A28:Z28 resultieren aus Verknüpfungen von anderen Sheets, die ich auf dem Umweg der Umwandlung in Werte in Zeile 30 eintrage (ich w...
21.03.2011 16:52:28
Thread-ID: 1206687
6 Beiträge
erste freie Zeile suchen
René

Hallo,
ich möchte ausgewählte Texte aus ComboBoxen und TextBoxen aus einer UserForm in ein Tabellenblatt übernehmen.
Funktioniert auch mit
Hier nur mal für das Auslesen einer ComboBox. Werden aber mehrere ausgelesen und die Werte stehen dann in Tabelle 1 hintereinander in einer Zei...
24.03.2011 15:50:04
Thread-ID: 1207434
2 Beiträge
Anzeige
erste freie Zeile in Zieltabelle finden
René

Hallo liebe Excelgemeinde,
ich will eine Datentabelle aus einer Datei in eine andere Datei kopieren.
Mein Problem ist das die Daten immer in der Zeiltabelle überschrieben werden weil die erste freie Zeile nicht gefunden wird. Kann mir bitte jemand an der Modifizierung des Makros helfen?...
05.04.2011 18:45:35
Thread-ID: 1209134
7 Beiträge
Werte in TATSÄCHLICH erste freie Zeile trotz Filte
Dietmar

Hallo zusammen,
folgender Code funktioniert ganz gut, hat aber noch Verbesserungspotential.
Die Prozedur ist Teil eines übergeordneten Codes; der Aufruf erfolgt mit Application.Run ...
1.) Wenn Filter gesetzt ist werden keine Daten in die erste freie Zeile eingetragen, weil der Show...
17.01.2012 12:51:12
Thread-ID: 1246531
3 Beiträge
Anzeige
erste freie Zeile
Alex

Hallo Leute,ich möchte eine Datenzeile aus einem Worksheet in ein anderes Worksheet übertragen, dort soll diese an einen Datenbestand angehängt werden, sie soll dort in die erste freie Zeile geschrieben werden.
03.06.2002 15:24:56
Thread-ID: 125555
2 Beiträge
in die nächste freie zeile kopieren
Uwe

hallo an die profis
in zeile 5 stehen in 5 zellen errechnete zahlen, welche in zeile10, und ab da immer in die nächste freie zeile kopiert werden sollen (tabellenlänge unendlich. mit makro? ich weiss nicht, wie.
danke für eure hilfe
gruss uwe
23.02.2012 11:08:40
Thread-ID: 1252057
3 Beiträge
erste freie Zeile in Tabelle zeigen
Gerd

Hallo alle,
folgender code soll die erste freie Zeile im aktiven sheet am Monitor anzeigen, sodass ich nicht laufend ganz nach unten scrollen muss.
++++++++++++++++++++++++++ Private Sub workbook_open() Dim ws As Worksheet Application.ScreenUpdating = False With ws Sheets("Tabelle").Sel...
27.06.2012 10:49:42
Thread-ID: 1269065
4 Beiträge
Anzeige
kopieren in nächste freie Zeile
Gisela

Hallo,
ich möchte, dass jeweils auf dem TB "gesamt" in die nächste freie Zeile ab C11 (Spalten A und B können schon mal ohne Inhalt sein) kopiert wird.
Kann mir bitte jemand helfen? Was muss ich wie ändern? Sub zeilenkopieren() Application.ScreenUpdating = False Dim a As Long, i As Lon...
21.07.2012 17:30:58
Thread-ID: 1272106
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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