Office: Daten automatisch ans Ende einer Tabelle einfügen

Hallo,

ich bin gerade dabei, ein Makro zu erstellen. Dabei sollen Daten ans Ende einer bestehenden Tabelle angefügt werden.

Wie drücke ich im Makro aus, dass ich ans Ende der Tabelle + eine Zeile darunter möchte?

Sprich: Die Tabelle geht bis zur Zeile 100 und die "neuen" Daten sollen dann in A101 eingefügt werden.

Vielen Dank für Eure Hilfe im Voraus

Gruß
Michael

 

Hallo Michael,

ermittle die letzte Zeile.
MsgBox Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row

Gruß Hajo

 

Hallo Hajo,

vielen Dank für die schnelle Antwort.

Leider funktioniert das nicht gewünscht. Bei mir erscheint eine Messagebox, in der eine 28 erscheint (Was nicht die letzte Zeile ist). Aber Excel geht nicht ans Ende der Tabelle plus eine Zeile darunter.

Gruß
Michael

 

Hallo Michael,

da kann ich leider nichts zu schreiben. Ich sehe Deine Datei nicht und kann aus desem Grund auch nichts dazu schreiben warum Zeile 28 nicht die letzte Zeile in Deiner Tabelle ist.
Bei mir ermittelt er immer so die letzte Zeile der Tabelle.

Gruß Hajo

 

Hallo Hajo,

ich habe mal eine Beispieldatei erstellt. In diesem Beispiel soll Excel in die Zelle A12 gehen, da das die letzte Zeile ist plus eine darunter. Er soll mit keine Messagebox anzeigen - er soll dort hingehen.

Gruß
Michael

 

Hallo Michael,

Der Dateiname sollte was mit dem Problem zu tun haben. Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test., Mappe.., Beispiel wird eine vorhandene überschrieben.

Im ersten Beitrag sollte die letzte Zeile der Tabelle ermittelt werden. Im letzten Beitrag liest sich das aber so als ob die letzte Zeile in Spalte A ermittelt werden soll.

Gruß Hajo

 

Ich habe die Datei mal umbenannt.

Ich glaube, wir reden aneinander vorbei. Daher beschreibe ich das mal etwas genauer. Ich habe eine Datei mit momentan 1250 Zeilen (Datei A). Ich exportiere mir täglich neue Daten aus einem Programm (in Datei B).
Diese exportierten Daten sollen über ein Makro an das Ende von Datei A angefügt werden.
Das ist soweit kein Problem, aber er überschreibt mir momentan beim Ausführen des Makros immer den letzten Datensatz in der Datei A, da ich ihm sage, er soll zum letzten Datensatz gehen und die Daten dort einfügen.

Ich möchte wissen, wie ich ihm sage, dass er in den letzten Datensatz geht, eine Zeile weiter nacah unten und dort die Daten aus Datei B einfügt.

In meinem Beispiel soll er die Daten aus Tabelle2 kopieren und ans Ende der Tabelle1 anfügen.

 

Hallo Michael,

also habe ich das korrekt verstanden. Ich habe es als selbstverständlich angesehen wenn die letzte Zeile ermittelt wird, das die nächste freie Zeile dann +1.
Bei mir wird in die 1 freie Zeile ca. 16.000x 1 eingefügt
Rows(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) = 1

Gruß Hajo

 

Leider funkrioniert das bei mir immer noch nicht.

Das Makro für mein Beispiel sieht wie folgt aus:

Sheets("Tabelle2").Select
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveSheet.Paste

Wo muß ich nun eingeben, das der den letzten Datensatz nicht überschreibt?

 

Hallo Michael,

Excel ist ein vielseitiges Programm und man kann viele Probleme damit lösen. Jede positive Seite hat aber auch negative Aspekte - einer davon ist im Makrorecorder enthalten.
Die Bücher, die es zu Excel VBA gibt, erklären viele Funktionen, aber ich habe bisher nur in einem gelesen, dass der vom Makrorecorder aufgezeichnete Code bereinigt werden sollte.
Der Makrorecorder zeichnet alle Aktionen auf, u. a. auch das Auswählen einer Zelle oder eines eingebetteten Objektes (Bild, Diagramm, Zeichnungsobjekt usw.) dabei wird generell Select und Activate aufgezeichnet. Diese Befehle sind in VBA zu 99,9% nicht notwendig. Sie lassen den Bildschirm flackern und senken die Geschwindigkeit bei der Ausführung des Codes. Man sollte also schon von Beginn an bei der Programmierung darauf achten, solche Befehle zu vermeiden. Meine Erfahrung mit dem Vorsatz: Das mache ich später ist, man schreibt das Programm später meist komplett neu. Also kostest es nicht nur Rechnerzeit sondern auch Deine Zeit und ist Dir Deine Zeit so wenig Wert?
Zum Vergleich mit und ohne Select schau Dir auch mal diese Beispielarbeitsmappe an: http://hajo-excel.de/chCounter3/getfile.php?id=61 Auf meiner Homepage sind alle meine Beispiele ohne Select. Da kann man sich also einige Lösungsansätze zu diesem Thema ansehen.

Code:

Option Explicit

Sub michael()
    Dim Loletzte As Long
    With Sheets("Tabelle2")
        Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
        .Rows(Loletzte).Copy Sheets("Tabelle1").Rows(Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) = 1
    End With
End Sub

ich habe das jetzt nicht nachgebaut und auch nicht getestet

Gruß Hajo

 

Leider kann ich Makro nur mit dem Makrorekorder erstellen und diese später angleichen. Zum Neuschreiben eines Makros fehlt mir die Erfahrung.

Dein Makro habe ich getestet. Da kommt eine Fehlermeldung

Laufzeitfehler 13, Typen unverträglich

Da weiß ich leider nicht, was damit gemeint ist

 

Hallo Michael,

lösche das "= 1" das ist noch ein Rest vom Test Makro.
man sollte es aber versuchen ohne select.

Gruß Hajo

 

Die Fehlermeldung ist nun weg, aber das Makro macht leider nichts.

 

Hallo Michael.

Ich habe die Datei nachgebaut und bei mir wurde kopiert.

Gruß Hajo

 

Hallo Michael,

und in Deiner Datei auch.

Gruß hajo