Das Archiv des Excel-Forums

Erste leere Zeile

Bild

Betrifft: Erste leere Zeile
von: Klaus

Geschrieben am: 19.09.2003 09:27:03

Hallo Leute,
habe folgendes Problem: möchte mittels Makro Daten von einer Tabelle in eine andere kopieren. Dabei sollen die Daten in der Zieltabelle aber nicht überschrieben werden sondern in die erste freie Zeile eingefügt werden.
schönen Dank im voraus.
Bild


Betrifft: AW: Erste leere Zeile
von: Hajo_Zi
Geschrieben am: 19.09.2003 09:43:58

Hallo Klaus

erste freie Zeile oder nach der letzten Zeile???

Gruß Hajo


Bild


Betrifft: AW: Erste leere Zeile
von: Klaus
Geschrieben am: 19.09.2003 09:58:00

Hey Hajo,
nach der letzten Zeile
Gruß Klaus


Bild


Betrifft: AW: Erste leere Zeile
von: Hajo_Zi
Geschrieben am: 19.09.2003 10:00:10

Hallo Klaus

die Zeile erhälts mit

Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1

Gruß Hajo


Bild


Betrifft: AW: Erste leere Zeile / noch ne Frage
von: klaus
Geschrieben am: 19.09.2003 10:32:55

Hey bekomme das nicht so ganz auf die Reihe. Kopiere mal ein teil des makros

Workbooks.Open FileName:="C:\Temp\b477.xls"
Application.Run "b477.xls!Makro15"
Range("A1:AA1500").Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
ActiveWindow.WindowState = xlMinimized


Range("A1").Select hier soll statt A1 die Zeile nach der letzten beschriebenen
ausgewählt werden (in der aktiven Tabelle)


ActiveSheet.Paste
ActiveWindow.WindowState = xlMinimized
Windows("b477.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveSheet.Paste
Application.CutCopyMode = False


Bild


Betrifft: AW: Erste leere Zeile / noch ne Frage
von: Hajo_Zi
Geschrieben am: 19.09.2003 10:38:39

Hallo Klaus

so ganz ist mir Dein Makro nicht klar

Range("A1:AA1500").Copy Destination:=Cells(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1, 1)

Auf Select usw. kann zu 99% in VBA verzichtet werden.

Gruß Hajo


Bild


Betrifft: AW: Erste leere Zeile / noch ne Frage
von: Klaus
Geschrieben am: 19.09.2003 10:52:14

Hey
hab ja geschrieben dass ich nicht so ne menge Ahnung habe, aber Makro funktioniert.
Möchte nur das nicht A1 an dieser Stelle aktiviert wird sondern die Zelle nach der letzten beschriebenen.


Bild


Betrifft: AW: Erste leere Zeile / noch ne Frage
von: Hajo_Zi
Geschrieben am: 19.09.2003 10:55:53

Hallo Klaus

Problem gelöst???

der Teil wird doch an die entsprechende Stelle kopiert.

Gruß hajo


Bild


Betrifft: AW: Erste leere Zeile / noch ne Frage
von: Klaus
Geschrieben am: 19.09.2003 11:02:30

Hey Hajo
vorab schon mal schönen Dank das du dich mit meinem Problem beschäftigst!!
es ist richtig die Daten werden kopiert und dann da eingefügt, aber wenn ich das Makro erneut aufrufe werden die Daten wieder überschrieben ich möchte die Daten aber behalten . Die neuen Daten sollen hinten angehängt werden.


Bild


Betrifft: AW: Erste leere Zeile / noch ne Frage
von: Hajo_Zi
Geschrieben am: 19.09.2003 11:07:11

Hallo Klaus


das ist eine eigenart von Excel. Das Tabellenende kann nicht immer richtig erkannt werden. Sichere mal die Datei zwischendurch.

Gruß Hajo


Bild


Betrifft: AW: Erste leere Zeile / noch ne Frage
von: GerdW
Geschrieben am: 19.09.2003 11:16:55

Wenn du auf specialCells und usedrange verzichtest, klappt das auch.

Gerd


Bild


Betrifft: AW: Schönen Dank
von: Klaus
Geschrieben am: 19.09.2003 11:19:10

Hallo Hajo,
werde mal noch ein bißchen tüffteln, ist nämlich teil meinen Projektarbeit für die IHK-Prüfung. Falls dir noch was einfällt kannst du ja noch mal schreiben.
Bis dann
Gruß
Klaus


Bild


Betrifft: Danke für die Rückmeldung oT
von: Hajo_Zi
Geschrieben am: 19.09.2003 11:20:56




 Bild