Sverweis Zeile in nächste leere Zeile kopieren

Hallo liebe Profis!
Ich habe mal wieder ein Problem bei dem ich Euere Hilfe bräuchte.
Es gibt zwar eine Unmenge an Antworten dazu, jedoch sind die recht verwirrend, vielleicht deshalb, weil es nicht mein Problem betrifft!?
Ich habe eine Tabelle (Personen) in der diverse Personen (mit Adresse etc.) stehen. Diese lasse ich mir per sverweis in einer anderen Tabelle (Ergebnis) in einer Zeile anzeigen.
Jetzt möchte ich diese Zeile nach einem klick auf einem Button in die nächste leere Zeile kopieren lassen, auch wenn es sich um die gleichen Angaben handeln würde.
Da ich mich mit VBA kaum auskenne, möchte ich Euch bei den Antworten bitten, diese etwas genauer zu erklären.
Für Euere Hilfe besten Dank im Voraus!
Viele Grüße
Klaus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Zeile_Kopieren() Dim wks As Worksheet Dim ZeileZ As Long Const ZeileCopy As Long = 2 'zu kopierende Zeile Set wks = Worksheets("Ergebnis") With wks 'Nächste freie Zeile in Spalte A (1) ZeileZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'Zeile in Zielzeile kopieren .Rows(ZeileCopy).Copy Destination:=.Rows(ZeileZ) End With End Sub

Sub Zeile_Kopieren() Dim wks As Worksheet Dim ZeileZ As Long Const ZeileCopy As Long = 24 'zu kopierende Zeile Set wks = Worksheets("Ergebnis") With wks 'Nächste freie Zeile in Spalte A (1) ZeileZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If ZeileZ

Sub Zeile_Kopieren() Dim wks As Worksheet Dim ZeileZ As Long Const ZeileCopy As Long = 24 '1. zu kopierende Zeile in "Auswertung" Set wks = Worksheets("Ergebnis") With wks 'Nächste freie Zeile in Spalte A (1) ZeileZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If ZeileZ

Nochmals Hallo an alle!
Franz hat mir dankenswerter Weise den Code kreiert.
Nachdem er zuerst funktioniert hat, ist es jetzt aus. Ich habe lediglich das Tabellenplatt "Ergebnis" in "Dienstplan" geändert und im Code angeglichen. Aber auch wenn ich das wieder ändere, wird nur die erste Zeile eingefügt und immer wiederholt in die gleiche Zeile kopiert.
In "Dienstplan" soll der Reihe nach (wenn eine Zeile belegt ist, dann die nächste) die Daten aus "Auswertung Zeile 24" kopiert werden.
Mittlerweile habe ich herausbekommen, dass die Zeilen ganz einfach durch löschen wieder "reaktiviert" werden können. Das hat sich also erledigt :-)
Da die Tabelle auch Leute benutzen die noch weniger Ahnung als ich haben, wäre vielleicht ein "zurück" Button für die letzte Aktion nicht schlecht.
Wenn jemand von Euch Lust und Zeit hat, würde ich mich riesig freuen, wenn er - oder natürlich auch sie - sich der Sache annehmen würde!
Ich hoffe, ich habe alle Daten angegeben. Außerdem habe ich die Mappe angehängt!

Die Datei https://www.herber.de/bbs/user/77303.xls wurde aus Datenschutzgründen gelöscht

Vielen Dank für Euere Hilfe und Viele Grüße
Klaus

Beliebteste Forumthreads (12 Monate)

Sverweis Zeile in nächste leere Zeile kopieren

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sverweis Zeile in nächste leere Zeile kopieren

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread