Office: VBA: Keine neue Zeile einsetzen, sondern nächste nehmen

Hallo :)

Ich möchte gerne von einem Tabellenblatt ins andere kopieren. Das solle eine Art Archiv-Funktion werden. Das heißt, aus bestimmten Zellen in Blatt A sollen die Daten in bestimmte Zellen in Blatt B kopiert werden.
Hier was ich dazu irgendwie zusammengebaut habe: (stammt nicht von mir, da ich wirklich ziemlich unfähig bin was VBA angeht):


Sub Schaltfläche27_KlickenSieAuf()
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim Lz As Long

Set wksQuelle = Workbooks("Reisewunschtabelle.xlsm") _
.Worksheets("UMF I")
Set wksZiel = Workbooks("Reisewunschtabelle.xlsm") _
.Worksheets("Archiv")


Lz = wksZiel.Cells(Rows.Count, 1).End(xlUp).Row

wksZiel.Rows(Lz).Insert

wksZiel.Range("B15").Value = wksQuelle.Range("F9").Value



End Sub


Nun ist es aber so, dass er durch den "insert" Befehl Zeilen einfügt. Das möchte ich aber nicht. Ich habe auf dem Archiv-Blatt eine Tabelle, die ich gerne befüllen möchte. Also sollte er prüfen ob in der aktuellen Zelle was steht. Gibt es dafür eine art "next" Befehl?

Um das ganze verständlicher zu machen: Ich habe in Tabelle A Zellen die ich Archivieren möchte. D.h. ich möchte diese Zellen in Tabellenblatt B in eine Tabelle packen. Konkret sind das Reisewunsch-Formulare, die ich aber auch immer wieder löschen möchte. Wenn ich dann weiterhin auf Archivieren klicke, soll er den neu angelegten Datensatz in der Tabelle auf Tabellenblatt B unter dem letzten Eintrag einfügen. Ahhh ich hoffe, es ist irgendwie deutlich geworden!

Vielen Dank schon mal

LG
Patrick

 

Hi Patrick,

so ganz verstehe ich deine Frage nicht. Weshalb fügst du eine neue Zeile ein und überträgst immer in B15? Würde es nicht ausreichen, wenn du den Inhalt einfach in die nächste freie Zelle überträgst? Also nach diesem Prinzip:

Code:

Lz = wksZiel.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksZiel.Cells(Lz, 2).Value = wksQuelle.Range("F9").Value

Bis später,
Karin

 

Ja im Prinzip hast du vollkommen recht. Wie definiere ich denn jetzt die Start-Zelle? Also meine Tabelle fängt zum beispiel in F23 an und von da aus sollen die Zeilen nach unten gefüllt werden.

 

Verwende eine If-Anweisung nach diesem Prinzip:

Code:

Lz = wksZiel.Cells(Rows.Count, 1).End(xlUp).Row + 1
If Lz < 23 then Lz = 23

Bis später,
Karin

 

Erstmal: Danke :) Ich weiß ich bin ein schwieriger Fall.

Das Problem was ich jetzt habe, er befüllt die Zelle F23. Super! Aber leider danach keine weitere...Er soll halt fortlaufend bei Klicken des Buttons eine Zeile runter rutschen und den aktuellen Inhalt einfügen...
Also ich könnte mir eine Prüfung vorstellen die die Zelle F23 und alle danach auf Inhalt prüft und wenn welcher vorhanden ist, eine Zelle weiter springt.

 

Du hast schon bemerkt, dass du die letzte belegte Zeile in Spalte A ermittelst aber in Spalte B einträgst? Wenn Spalte A nach wie vor leer bleibt, ist Lz natürlich immer kleiner 23 und der Wert wird stets in B23 eingetragen.

Bis später,
Karin

 

Ok super, ich bin so ein Laie was das angeht!
Sorry! Jetzt habe ich es.