Office: Datensatz ans Ende der Tabelle kopieren

Hallo *Smilie

Habe mal wieder ein Problem.
Ich habe zwei Arbeitsblätter (Eingabe und Ablage)
Die Daten der Eingabe, sollen bei der Ablage immer ans Ende der Tabelle kopiert werden. Da jedoch die Tabelle der Ablage logischerweise weiter "wächst", will mir das Makro nicht gelingen *frown.gif*.
Wäre hilfreich wenn mir einer das Makro als Text in der Antwort kopieren würde *Smilie.
Datei ist angehängt.

Dankeschön

:)

 

Hi,

und wie sieht dein "nicht gelungenes Makro" aus?

Wie sollen die Daten übertragen werden - per Schaltfläche, per Doppelklick oder noch anders?

 

Hallo Seven,

wozu soll das gut sein? Schreibe die neuen Daten gleich an dir richtige Stelle, der Umweg über das andere Tabellenblatt macht wirklich keinen Sinn.

 

Hallo,

auf dem ersten Tabellenblatt soll dann eine Schaltfläche sein, auf der der Benutzer einfach klicken soll.

Meine Datei sieht ja recht einfach aus, sie dient ja nur dazu mir die Funktion des Makros zu erklären, da ich das für eine Datei auf der Arbeit brauche, die viel aufwändiger gestaltet ist *Smilie

Daher würde ich euch danken, wenn ihr mir einfach das passende Makro dazu hier als Text schreibt *Smilie *Smilie *Smilie

 

Hi,

mit folgendem Makro kannst du die erste freie Zeile in der anderen Tabelle ermitteln und die Daten an diese Position kopieren:

Code:

 

Hallo,

erstmal Danke.

Bedeutet dies, dass der Datensatz vom ersten Tabellenblatt automatisch ans Ende der Tabelle von Blatt 2 kopiert, weil die Tabelle von Blatt 2 wird ja stetig wachsen *Smilie

 

Hi,

hast du den Code schon mal getestet?

 

Hallo *Smilie

Mein Makro sieht folgendermaßen aus

Sub Kopieren()
Dim lngErste As Long
With Worksheets("Ablage")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
With Worksheets("Zwischenablage für Makro")
Range("A3:J3").Copy .Cells(lngErste, 1)

End With

End Sub

Zwei Probelme :O
Es funktioniert nicht *frown.gif*
Bei dem Makro das du geschrieben hast, wurden die Werte nicht richtig übernommen sondern da kamen 0er. Die Werte die auf dem Blatt Zwischenablage für Makro in A3:J3 sollen genau übernommen werden, leider kamen da dann 0er und das Datum erhielt auch ein anderes Format
Kannst du mir nochmals helfen, und das obige Makro korrigieren. *Smilie
Danke

 

Hi,

du verwendest ein anderes Makro, nicht welches ich gepostet hat - das gepostete jedenfalls funktioniert.

 

Hallo,

ja deines funktioniert ja auch.
Wollte es eben auf meine Tabelle anpassen...
Leider funktioniert es nicht, weiß aber nicht warum.

Wie kann ich deinem Makro sagen aus welchen Tabellenblatt es kopieren soll wenn es mehrere gibt. Also das es beispielsweise aus Blatt xy kopiert?.
Und wie kann ich dem Makro sagen, dass es die Werte und nicht die Formel übernimmt aus den Zellen die kopiert werden?
Danke

 

Hi,

das ist übrigens deine Arbeitsmappe - weshalb lädst du sie dann nicht so hoch wie sie um Original aussieht?

Code:

Kopiert wir aus Tabelle "XY" nach Tabelle "Ablage", und zwar nur die Werte.

 

Hallo,

ich möchte ihnen recht herzlich danken *Smilie
Es funktioniert perfekt, danke nochmals *Smilie
Die Tabelle enthält leider geheime Daten von der Arbeit :O

Sie scheinen sich ja gut mit VBA auszukennen, wie haben sie sich ihr Wissen angeeignet?
Gibt es gute Literatur?

 

Hi,

das Wissen zur Excel-Programmierung habe ich mir in erster Linie durch die Arbeit in diesem und anderen Excel-Foren angeeignet - Literatur nutze ich nur sehr selten, höchstens mal als Nachschlagewerk; aber auch im Internet wird man fast zu allen Fragen fündig.