Clever-Excel-Forum - markierte Zellen ausschneiden

Hallo zusammen,

ich habe eine Frage, bei der ich nicht weiterkomme:

Konkret geht es darum:

Es soll mittels Suchfunktion in Tabelle1 eine Auftragsnummer gesucht werden. Dies können auch mehrere Treffer sein.
Die Zeilen sollen dann markiert werden (die Ergebnisse sind immer in Reihe (1,2,3) nicht (1,3,5,etc.)
Sollen dann ausgeschnitten werden und in Tabelle2, welche identisch aufgebaut ist wie Tabelle1, in unterster, leerer Zeile eingefügt werden.
Die leeren Zeilen in Tabelle1 sollen schließlich entfernt werden.
Ausgangsbasis ist Tabelle2.

Ich habe es bereits geschafft, über bedingte Formatierung, die Zeilen zu markieren bei einem Ergebnis. Der nächste Step klappt aber nicht wirklich.

Wäre toll, wenn mir jemand weiterhelfen kann :)

VG

exalex

Hallo

bin mir nicht sicher, was du mit Reihen (.. meinst

Spalte A:C ??

versuch es mal so.

in ein Normales Modul

Code:
Option Explicit

Sub Verschiebe()

    Dim TB1 As Worksheet, TB2 As Worksheet, LR1 As Long, LR2 As Long

    Dim RNG As Range, AUFNUM As String, C

    Set TB1 = Sheets("Tabelle1")

    Set TB2 = Sheets("Tabelle2")

    Set RNG = TB1.Range("A:C") 'Suchbereich

    AUFNUM = InputBox("Suchen nach Auftrag: ")

    If AUFNUM = "" Then Exit Sub

    Set C = RNG.Find(What:=AUFNUM, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)

    If Not C Is Nothing Then

        Do

            LR2 = TB2.Cells.SpecialCells(xlCellTypeLastCell).Row + 1 'erste freie Zeile

            C.EntireRow.Copy TB2.Rows(LR2) 'kopiern

            C.EntireRow.Delete 'löschen

            Set C = RNG.FindNext() 'Weitersuchen

        Loop While Not C Is Nothing

    End If

End Sub

LG UweD

Hallo UweD,

danke schon mal für die schnelle Antwort.

Mit Reihe meinte ich, dass die Zeilen immer nachfolgend das Ergebnis anzeigen und dann makiert werden sollen.
Also Zeile 1 ist markiert, Zeile 2, usw.
Und nicht Zeile 1, Zeile 3, Zeile 5, usw.
War mir nicht sicher, ob das für Excel sonst ein Problem darstellt.

Ich probier den Code gleich mal aus!

VG

exalex

Hallo UweD,

vielen vielen Dank!

Klappt wunderbar!

Welche zusätzliche Funktion noch toll wäre:

Dass durch einen Zwischenstep Excel mich fragt, ob alle Zeilen (bei mehreren Treffern)
komplett übernommen werden sollen. Teilweise sollen Daten, da noch nicht abgeschlossen, nicht übertragen werden.
Ggf. könnte ich dann händisch diejenigen Zeilen markieren, welche dann übernommen werden sollen.
Dies dann z.B. mit einem Button, "okay, jetzt übertragen".

Danke dir nochmals :) :)

VG

exalex