dynamische Liste

Hallo und ein frohes neues Jahr!
Ich stehe vor einem Problem, wo ich mit meinem Kenntnissen leider nicht weiterkomme, da ich VBA so gut wie gar nicht beherrsche. (Kann Programmcodes prinzipiell verstehen, aber kann nicht selbst programmieren)
In Excel Version 2010 habe ich eine Liste mit Einträgen mit eindeutig zugeordneten Nummern (Spalte B).
Der erste, wahrscheinlich leichtere Problemstellung, ist, dass vom Tabellenblatt "Prio-Projekte" per Button oder ähnliches von einer gewünschten (bzw. angegebenen) Zeile die Spalten B bis I in die erste freie Zeile des Tabellenblatts "Erledigt" verschoben werden.
Das größere Problem ist nun aber eine Dynamik: Wenn ein Eintrag aus dem Tabellenblatt "Prio-Projekte" verschoben wird, kann es vorkommen, dass eine leere Reihe entsteht, sodass die verbleibenden Einträge unterhalb der leeren Zeile nach oben rutschen sollen.
Prinzipiell kann ich mir vorstellen, dass so etwas möglich ist, jedoch fehlt mir vollständig der Ansatz.
Hoffentlich ist mein Gedankengang deutlich genug ist, stelle sonst gerne weitere Infos zur Verfügung.
Ich bedanke mich auf jeden Fall schon vorab die sämtliche Mühen!
Grüße
Marcel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
also um die Frage von Werner zu beantworten: Es gibt keine zusätzlichen Daten ab Spalte J, es würde nur innerhalb des identischen Bereichs etwas eingetragen werden.
Das Beispiel von Michael trifft schon sehr weit auf das zu, was ich suche. Es ist lediglich ein Detail:
Ist es möglich, dass die Spalte A unberührt bleibt und entsprechend alle anderen Daten nach dem Verschieben nach oben rücken?
Die Abfrage nach der ID finde ich sehr gelungen, alternativ wäre evtl. auch die Zeilennummer als mögliche Abfrage möglich.
Ich habe die Grundstruktur der Datei hochgeladen: https://www.herber.de/bbs/user/110345.xlsx
Prinzipiell gibt es noch weitere Tabellenblätter, die spielen bei der gesuchten Funktion aber keine Rolle.
Danke sehr!
Beste Grüße,
Marcel

Option Explicit Sub MoveProjects() Const QUELLBLATT As String = "Prio-Projekte" Const ZIELBLATT As String = "Erledigt" Dim Wb As Workbook: Set Wb = ThisWorkbook Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets(QUELLBLATT) Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets(ZIELBLATT) Dim loZeile As Long With WsQ loZeile = Application.InputBox("Bitte zu übertragende Zeilennummer auswählen", _ "Projekt übertragen", , , , , , 1) If loZeile = 0 Then Exit Sub If Not IsError(loZeile) Then .Range(.Cells(loZeile, 2), .Cells(loZeile, 9)).Copy _ WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Offset(1, 0) .Range(.Cells(loZeile, 2), .Cells(loZeile, 9)).Delete shift:=xlUp End If End With End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

dynamische Liste

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread