Kopieren von einzelnen Zellen in die nächste freie Zeile in einer anderen Tabelle

[d'r Bastler]

Moin nochmal,

eine Bitte: verzichte auf unnötige Zitate. Sie machen das Thema nur unübersichtlich. Danke Dir!

Im Anhang findest Du eine zweite Version meiner Bastelei mit zwei Buttons: Testdaten und Append. Der erste generiert einfache Testdaten in den Zellen, die Du als Eingabezellen genannt hast. Der zweite überträgt die eingegebenen Daten in die erste freie Zeile die Spalten A-D und F-H. Bleiben noch zwei Fragen: In Deiner Beispieldatei finde ich keinen Button. Durch was soll das Makro ausgelöst werden? Sollen die Eingabe-Daten bei der Übertragung immer gelöscht werden?

Grüße

  DatenKopieren02.xlsb (Größe: 20,69 KB / Downloads: 4)

[k-siebke]

Danke für deine Beispiel Datei! Ich habe sie ausprobiert mit vergnügen.
leider ist das nicht so das was ich suche, denn bei deiner Datei werden  ja alle angaben in der "Ziel" Datei, bei jeder neuen Eingabe ja überschrieb.
ich will hingegen das jede neu eingab, aus der "Quelle" Datei in die nässte frei Zeile - in deinem fall in die "Ziel" Datei geschrieben wird.
Ich will auf diesem weg so etwas wie eine Tagesaktuelle  Datenbank aufbauen 

Trotzdem bekommst du ein großen Lob von mir

[d'r Bastler]

Danke für die Blumen!!
Teste Version 02 in #11, da wird nicht überschrieben sondern append = hinzugefügt
Grüße

[Pawelpopolski]

Kommen wir nochmal auf die erste Antwort zurück.

Was genau funktioniert hier nicht?
  ListView laden mit Fohrum(1).xlsm (Größe: 52,36 KB / Downloads: 5)

[Egon12]

Hallo zusammen,

da ich nun sehe, dass es sich um das Projekt mit der LW dreht, noch ein paar Anmerkungen von mir.
So lange wie du nur weiter Daten einfügst oder änderst ist alles gut.
Aber wenn du Zeilen löschst solltest du dies zwingend nur in der formatierten Tabelle (.ListObject) auch per VBA tun. Sonst gerät alles weiter rechts u.U. auf dem Tabellenblatt aus den Fugen.
Daher empfehle ich dir, so wie ich es mit der LW angelegt hatte, weiterhin auf Basis des ListObjects zu erledigen. Das macht vor allem spätere Anpassungen an neue Erfordernisse einfacher.
Hättest du gleich zu Anfang reingeschrieben, dass du einen neuen Datensatz aus diesen Zellen unter dem letzten Eintrag in "Tbl_Liste" (.ListObject) haben willst, wäre das schon längst erledigt.

Gruß Uw

[Pawelpopolski]

Das war es schon mit dem ersten Lösungsvorschlag, wenn auch auf klassische Art ohne das ListObject. Man müsste die vorgeschlagenen Lösungen einfach nur umsetzen oder resultierende Fehler genau benennen. Das kann nicht mit "Das funzt nicht, ich weiss auch nicht warum" getan sein.

[k-siebke]

Danke das ist genau das was ich suche nur die diese ständige abfrage und Tabellen blad Wechsel beim kopieren Störte
Na klar sollen alle werte in der Quelldatei gelöscht werden für die nässte Eingabe

[k-siebke]

das sehe ich ja erst jetzt das deine Version funktioniert, aber die angaben landen ja ganz wo anders nämlich in Zeile82?

wehr schaut den auch so weit unten nach, wen man die angaben in Zeile 3 erwartet hihihi 

ich entschuldige mich fiel Mahls

[k-siebke]

sorry wen es missverständlich war mit es "funzte" nicht - es war gestern ein  Heiser langer langer Tag!
ich entschuldige mich viel Mals:
ich habe es jetzt hinbekommen und einige kleine Fehler behoben in deiner VBA Vorlage. 
Darf ich aber  Fragen wie ich nach jeder Eingabe  die Zellinhalte in Tabelle2("B27", "B21", "D21", "B24", "B32", "B35", "B38")  für neu eingaben löschen kann 

Gruß k-siebke

[Pawelpopolski]

Die Daten landen in der letzten Zeile, so wie es gewollt war. Wenn schon viele Daten in der Zieltabelle stehen muss man halt weiter unten suchen.

Ich gebe mich jetzt mal ein wenig zickig:
Hier beschäftigen sich diverse Personen mit deiner Fragestellung. Allerdings hätte es allen viel weniger Arbeit bereitet, wenn du die Antworten von Anfang an etwas genauer angeschaut hättest.
Wenn du in der Lage bist Fehler (welche auch immer) in meiner Vorlage zu korrigieren, solltest du auch in der Lage sein den Code so zu ergänzen, dass die gewünschten Zellen am Ende wieder leer sind.

Kleiner Tipp:
wsQ.cells(27,2)=""